pang-a-lambda-0.2.0.0: src/Data/Extra/Ord.hs
module Data.Extra.Ord where
inRange :: Ord a => (a, a) -> a -> a
inRange (mn, mx) n | n < mn = mn
| n > mx = mx
| otherwise = n
module Data.Extra.Ord where
inRange :: Ord a => (a, a) -> a -> a
inRange (mn, mx) n | n < mn = mn
| n > mx = mx
| otherwise = n