Match.purs

module Main where

import Prelude

data Foo a = Foo

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

main = Control.Monad.Eff.Console.log "Done"