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