1 2 3 4 5 6 7 8 9 | {-# Language LambdaCase #-} data Cartesian2D = Cartesian2D { xCoord :: Double, yCoord :: Double } deriving (Eq, Show) lowestCoord :: [Cartesian2D] -> Cartesian2D lowestCoord = minimumBy (/a b -> (\case {EQ -> (compare `on` xCoord) a b; x -> x}) . ((compare `on` yCoord) a b)) |