mirror of
https://github.com/luau-lang/luau.git
synced 2024-11-16 06:45:44 +08:00
15 lines
392 B
Agda
15 lines
392 B
Agda
|
module FFI.Data.HaskellInt where
|
||
|
|
|
||
|
|
open import Agda.Builtin.Int using (Int)
|
||
|
|
|
||
|
|
{-# FOREIGN GHC import qualified Data.Int #-}
|
||
|
|
|
||
|
|
postulate HaskellInt : Set
|
||
|
|
{-# COMPILE GHC HaskellInt = type Data.Int.Int #-}
|
||
|
|
|
||
|
|
postulate
|
||
|
|
intToHaskellInt : Int → HaskellInt
|
||
|
|
haskellIntToInt : HaskellInt → Int
|
||
|
|
{-# COMPILE GHC intToHaskellInt = fromIntegral #-}
|
||
|
|
{-# COMPILE GHC haskellIntToInt = fromIntegral #-}
|