path: root/testsuite/tests/typecheck/should_compile/tc038.hs

module ShouldSucceed where

f (x:xs) = if (x == (fromInteger 2)) then xs else []