testsuite/tests/deSugar/should_compile/T14546b.hs


1
2
3
4
5
6
7
8
9
10
11

main :: IO ()
main = do
   case "foo" of
      ('f':_)     -> putStrLn "A"
      ('f':'o':_) -> putStrLn "B"
      "bar"       -> putStrLn "C"

   case "foo" of
      "foo" -> putStrLn "A"
      "bar" -> putStrLn "B"
      "baz" -> putStrLn "C"