purescript-0.7.2.0: examples/passing/NamedPatterns.purs

module Main where

import Prelude

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

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