purescript-0.9.1: examples/passing/NamedPatterns.purs

module Main where

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

foo = \x -> case x of
  y@{ foo: "Foo" } -> y
  y -> y

main = log "Done"