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

module KeepCafs2 where

import KeepCafsBase

foreign export ccall "getX"
  getX :: IO Int

getX :: IO Int
getX = return (x + 1)