summaryrefslogtreecommitdiff
path: root/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-01 16:58:11 -0400
committerJoey Hess2014-04-01 16:58:11 -0400
commite6d24b49b87de312776bee71a2a6f009f7f397a9 (patch)
treeceba3045f23ee1d3cf36bfe8e8ffa9cb090b9e54 /Propellor/Types.hs
parent6a82cdc41c89cc249da4d941a32920ebfd14cb92 (diff)
various improvements
Diffstat (limited to 'Propellor/Types.hs')
-rw-r--r--Propellor/Types.hs18
1 files changed, 18 insertions, 0 deletions
diff --git a/Propellor/Types.hs b/Propellor/Types.hs
index df139dd6..4d8af2c9 100644
--- a/Propellor/Types.hs
+++ b/Propellor/Types.hs
@@ -26,6 +26,24 @@ instance Monoid Result where
mappend _ MadeChange = MadeChange
mappend NoChange NoChange = NoChange
+-- | High level descritption of a operating system.
+data System = System Distribution Architecture
+ deriving (Show)
+
+data Distribution
+ = Debian DebianSuite
+ | Ubuntu Release
+ deriving (Show)
+
+data DebianSuite = Experimental | Unstable | Testing | Stable | DebianRelease Release
+ deriving (Show)
+
+type Release = String
+
+data Architecture = Amd64 | I386 | Armel
+ deriving (Show)
+
+-- | Results of actions, with color.
class ActionResult a where
getActionResult :: a -> (String, ColorIntensity, Color)