-- A separate module so that we can contain all usage of deprecated identifiers here
{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
module Distribution.Version.Extra
  ( hasUpper
  , hasLower
  ) where

import Distribution.Version (VersionRange (..))

-- | Does the version range have an upper bound?
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

-- | Does the version range have a lower bound?
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