summaryrefslogtreecommitdiff
path: root/testsuite/tests/typecheck/should_compile/tc026.hs
blob: 3e718a5053a541c4edcfc0ff2891c8f8e9015e46 (plain)
1
2
3
4
module ShouldSucceed where

g x = f (f True x) x 
f x y = if x then y else (f x y)