path: root/testsuite/tests/rts/T8124.hs

module T8124 where

f :: Int -> Int
f x = x + 1

foreign export ccall "f" f :: Int -> Int