fay-0.16.0.0: tests/pats.hs

import Prelude

main :: Fay ()
main =
      case [1,2] of
        []    -> putStrLn "got []"
        [a]   -> putStrLn "got one value."
        [a,b] -> putStrLn "got two values."