Ticket #2834: Adder.hs

File Adder.hs, 173 bytes (added by lewissandy, 5 years ago)
Line 
1{-# OPTIONS_GHC -fglasgow-exts #-}
2
3module Adder where
4
5adder :: Int -> Int -> IO Int
6adder x y = return (x+y)
7
8foreign export stdcall adder :: Int -> Int -> IO Int