Allow querying for the wildcard version range.

haskell · Aug 6, 2007 · 84cb848 · 84cb848
1 parent 86c7273
commit 84cb848
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/Distribution/Version.hs b/Distribution/Version.hs
@@ -55,6 +55,7 @@ module Distribution.Version (
   withinRange,
   showVersionRange,
   parseVersionRange,
+  isAnyVersion,
 
   -- * Dependencies
   Dependency(..),
@@ -215,6 +216,10 @@ data VersionRange
   | IntersectVersionRanges  VersionRange VersionRange
   deriving (Show,Read,Eq)
 
+isAnyVersion :: VersionRange -> Bool
+isAnyVersion AnyVersion = True
+isAnyVersion _ = False
+
 orLaterVersion :: Version -> VersionRange
 orLaterVersion   v = UnionVersionRanges (ThisVersion v) (LaterVersion v)