testsuite/tests/typecheck/should_fail/tcfail089.hs


1
2
3
4
5
6
7
8
9
10


-- !!! Check non-constructors in patterns fail tidily
-- !!! The -O made ghc 4.08 go into a loop!
-- Unfortunately the -O has to go in the Makefile

module ShouldFail where

compute :: String -> String
compute ("hd" ++ _) = "_"