ghc/tests/codeGen/should_run/cg045.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module Main (main,myseq) where
   4
   5 import PrelGHC
   6 import PrelErr
   7
   8 main :: IO ()
   9 main = seq (error "hello world!" :: Int) (return ())
  10
  11 myseq :: a -> b -> b
  12 myseq  x y = case (seq#  x) of { 0# -> seqError; _ -> y }