module Data.Extra.Ord where

inRange :: Ord a => (a,a) -> a -> a
inRange (mN, mX) x = min mX (max mN x)