From e6d24b49b87de312776bee71a2a6f009f7f397a9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 16:58:11 -0400 Subject: various improvements --- Propellor/Types.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'Propellor/Types.hs') 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) -- cgit v1.3-2-g0d8e