shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Make it compile

--- a/lib/Data/FloatW.hs

+++ b/lib/Data/FloatW.hs

@@ -108,7 +108,7 @@

 foreign import ccall "atan" catan :: FloatW -> IO FloatW

 foreign import ccall "atan2" catan2 :: FloatW -> FloatW -> IO FloatW

--- Assumes 64 bit floats

+-- Assumes 32/64 bit floats

 instance RealFloat FloatW where

   floatRadix     _ = 2

   floatDigits    _ = flt 24 53

--- a/lib/Numeric/FormatFloat.hs

+++ b/lib/Numeric/FormatFloat.hs

@@ -11,8 +11,6 @@

   showHFloat,

   ) where

-import Prelude()

-import MiniPrelude

 import Data.Char

 import Numeric.Show