1 2 3 4 5 6 7 8
module LibA (add_one) where import Data.Int (Int32) foreign import ccall "c_add_one" c_add_one' :: Int32 -> Int32 add_one :: Int32 -> Int32 add_one x = c_add_one' x