ffi/barmain.hs


1
2
3
4
5
6

foreign import ccall "exp" c_exp :: Double -> Double
foreign import ccall "bar" c_bar :: Double -> Double

main = do 
            print $ c_exp 2
            print $ c_bar 2