purescript-0.9.1: examples/passing/Match.purs

module Main where

import Prelude
import Control.Monad.Eff.Console (log)

data Foo a = Foo

foo = \f -> case f of Foo -> "foo"

main = log "Done"