fay-0.9.1.0: tests/recordPatternMatch2.hs

{-# LANGUAGE NoImplicitPrelude #-}

data Person = Person String String Int

main = print (case Person "Chris" "Done" 14 of
                Person "Chris" "Done" 13 -> "Foo!"
                Person "Chris" "Barf" 14 -> "Bar!"
                Person "Chris" "Done" 14 -> "Hello!"
                _ -> "World!")

print :: String -> Fay ()
print = ffi "console.log(%1)"