{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
module Distribution.Version.Extra
( hasUpper
, hasLower
) where
import Distribution.Version (VersionRange (..))
hasUpper :: VersionRange -> Bool
hasUpper AnyVersion = False
hasUpper (ThisVersion _) = True
hasUpper (LaterVersion _) = False
hasUpper (EarlierVersion _) = True
hasUpper (WildcardVersion _) = True
hasUpper (UnionVersionRanges x y) = hasUpper x && hasUpper y
hasUpper (IntersectVersionRanges x y) = hasUpper x || hasUpper y
hasUpper (VersionRangeParens x) = hasUpper x
hasLower :: VersionRange -> Bool
hasLower AnyVersion = False
hasLower (ThisVersion _) = True
hasLower (LaterVersion _) = True
hasLower (EarlierVersion _) = False
hasLower (WildcardVersion _) = True
hasLower (UnionVersionRanges x y) = hasLower x && hasLower y
hasLower (IntersectVersionRanges x y) = hasLower x || hasLower y
hasLower (VersionRangeParens x) = hasLower x