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

module KeepCafs1 where

import KeepCafsBase

foreign export ccall "getX"
  getX :: IO Int

getX :: IO Int
getX = return x