ghc/tests/typecheck/should_fail/tcfail089.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 -- !!! Check non-constructors in patterns fail tidily
   4 -- !!! The -O made ghc 4.08 go into a loop!
   5 -- Unfortunately the -O has to go in the Makefile
   6
   7 module ShouldFail where
   8
   9 compute :: String -> String
  10 compute ("hd" ++ _) = "_"