summaryrefslogtreecommitdiff
path: root/tests/examples/ghc86/ffi1.hs
blob: a1a2d79854dc2c059245cfd69d9c165ffc822d72 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
{-# LANGUAGE UnboxedSums, UnboxedTuples, MagicHash #-}

module Lib where

import GHC.Prim

-- 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