path: root/testsuite/tests/codeGen/should_compile/T15196.hs

module M where

f :: Double -> Double -> Bool
f x y = if x < y then True else False