testsuite/tests/rts/linker/Test.hs


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