diff options
Diffstat (limited to 'Propellor/Types.hs')
| -rw-r--r-- | Propellor/Types.hs | 18 |
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) |