22 lines
660 B
Agda
22 lines
660 B
Agda
module FFI.Data.Scientific where
|
|
|
|
open import Agda.Builtin.Float using (Float)
|
|
open import FFI.Data.String using (String)
|
|
open import FFI.Data.HaskellString using (HaskellString; pack; unpack)
|
|
|
|
{-# FOREIGN GHC import qualified Data.Scientific #-}
|
|
{-# FOREIGN GHC import qualified Text.Show #-}
|
|
|
|
postulate Scientific : Set
|
|
{-# COMPILE GHC Scientific = type Data.Scientific.Scientific #-}
|
|
|
|
postulate
|
|
showHaskell : Scientific → HaskellString
|
|
toFloat : Scientific → Float
|
|
|
|
{-# COMPILE GHC showHaskell = \x -> Text.Show.show x #-}
|
|
{-# COMPILE GHC toFloat = \x -> Data.Scientific.toRealFloat x #-}
|
|
|
|
show : Scientific → String
|
|
show x = pack (showHaskell x)
|