purescript-0.12.0: tests/purs/passing/Module/M1.purs

module M1 where

import Prelude

data Foo = Foo String

foo :: Foo -> String
foo = \f -> case f of Foo s -> s <> "foo"

bar :: Foo -> String
bar = foo

incr :: Int -> Int
incr x = x + 1