summaryrefslogtreecommitdiff
path: root/Propellor/Types
diff options
context:
space:
mode:
authorJoey Hess2014-04-13 17:50:44 -0400
committerJoey Hess2014-04-13 17:50:44 -0400
commit90370dc57576ec6d4701acd4b5672eeba269a386 (patch)
tree798ade3f259fdd1eaa1b1a89030cc304028d4254 /Propellor/Types
parent38cd54a7ee853f13036a02205e1655eac6e7b43a (diff)
stable-backports can't be used :(
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