summaryrefslogtreecommitdiff
path: root/testsuite/tests/rts/Test.hs
blob: a65e7d3d562db9f77b727e47b516a7f7b75d9560 (plain)
1
2
3
4
5
6
7
8
9
10
11
module Test where

f :: Int -> Int
f x = x + head caf

-- make sure that even when we have a CAF, we can unload the code
caf :: [Int]
caf = [1..10]

foreign export ccall f :: Int -> Int