various improvements

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)