testsuite/tests/ghc-e/should_run/ghc-e005.hs


1
2
3
4
5
6
7
8
9
10
11
12
13


import System.Environment
import System.IO

main :: IO ()
main = error "main got called"

foo :: IO ()
foo = do putStrLn "This is foo"
         getArgs >>= print
         hFlush stdout
         error "foo"