fay-0.19: tests/doAssingPatternMatch.hs

module DoAssingPatternMatch where

main :: Fay ()
main = do
  [1,2] <- return [1,2]
  putStrLn "OK."