From 90370dc57576ec6d4701acd4b5672eeba269a386 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 13 Apr 2014 17:50:44 -0400 Subject: stable-backports can't be used :( --- Propellor/Types/OS.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Propellor/Types') 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 -- cgit v1.2.3