saturn-0.2.0.0: source/libraries/unstable/Saturn/Unstable/Extra/Ord.hs

module Saturn.Unstable.Extra.Ord where

within :: (Ord a) => (a, a) -> a -> Bool
within (lo, hi) x = lo <= x && x <= hi