summaryrefslogtreecommitdiff
path: root/Propellor/Types
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Types')
-rw-r--r--Propellor/Types/OS.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Propellor/Types/OS.hs b/Propellor/Types/OS.hs
index 5b0e376d..0635b271 100644
--- a/Propellor/Types/OS.hs
+++ b/Propellor/Types/OS.hs
@@ -15,5 +15,12 @@ data Distribution
data DebianSuite = Experimental | Unstable | Testing | Stable | DebianRelease Release
deriving (Show, Eq)
+-- | The release that currently corresponds to stable.
+stableRelease :: DebianSuite
+stableRelease = DebianRelease "wheezy"
+
+isStable :: DebianSuite -> Bool
+isStable s = s == Stable || s == stableRelease
+
type Release = String
type Architecture = String