blob: a990e8a793ddca35a8199a58050f2e736ecc2b84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE GHCForeignImportPrim #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnliftedFFITypes #-}
import Data.Foldable
import GHC.Exts
import GHC.Int
foreign import prim "foo" foo :: Int64# -> Int64#
main :: IO ()
main = for_ [0, 42, 114514] $ \(I64# x#) -> print $ I64# (foo x#)
|