testsuite/tests/ghci/caf_crash/A.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module A (caf, mainx, square) where

import B (idd)

caf :: Int
caf = 23423

mainx :: IO ()
mainx = do
    putStrLn $ show (caf + idd)
    putStrLn "Hello"
    putStrLn "World"

square :: IO Int
square = do
    let ss = "I'm a square"
    putStrLn $ ss
    return $ length ss