1 2 3 4 5 6
module One () where add_one_hs :: Int -> Int add_one_hs x = x + 1 foreign export ccall add_one_hs :: Int -> Int