blob: 09dd2ef2ef605661854e0ee7fc79fecb73be0a43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE ForeignFunctionInterface #-}
-- !!! test that exporting the same thing multiple times works.
module ShouldCompile where
import Data.Int
foreign export ccall "addByte" (+) :: Int8 -> Int8 -> Int8
foreign export ccall "addInt" (+) :: Int16 -> Int16 -> Int16
foreign export ccall "addLong" (+) :: Int32 -> Int32 -> Int32
foreign export ccall "divByte" div :: Int8 -> Int8 -> Int8
foreign export ccall "divInt" div :: Int16 -> Int16 -> Int16
foreign export ccall "divLong" div :: Int32 -> Int32 -> Int32
|
