blob: aff0e73799bc4a1ca6b29eff469f6fd3d2d67547 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE UnboxedSums, UnboxedTuples, MagicHash #-}
module Lib where
import GHC.Exts
-- Can't unboxed tuples and sums to FFI, we should fail appropriately.
foreign import ccall "f1" f1 :: (# Int | Int #) -> IO Int
foreign import ccall "f2" f2 :: (# (# Int, Int #) | (# Float#, Float# #) #) -> IO Int
foreign import ccall "f3" f3 :: (# (# #) | Void# | (# Int# | String #) #) -> IO Int
|
