data Foo = Foo Integer Integer
         | Bar
         
isFoo (Foo _) = True
isFoo _ = False

main = "Hello world!"
--
4:7-4:14: The function is applied with too few parameters.