Commit 2cf426fc authored by simonpj's avatar simonpj
Browse files

[project @ 2002-06-19 09:20:53 by simonpj]

Sync with new seq story
parent 29f02288
{-# OPTIONS -fglasgow-exts #-}
module Main (main,myseq) where
module Main( main ) where
import GHC.Prim
import GHC.Err
main :: IO ()
main = seq (error "hello world!" :: Int) (return ())
myseq :: a -> b -> b
myseq x y = case (seq# x) of { 0# -> seqError; _ -> y }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment