Make it compile

augustss · Nov 23, 2024 · b8b9a7a · b8b9a7a
1 parent 687532e
commit b8b9a7a
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/lib/Data/FloatW.hs b/lib/Data/FloatW.hs
@@ -108,7 +108,7 @@ foreign import ccall "acos" cacos :: FloatW -> IO FloatW
 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

diff --git a/lib/Numeric/FormatFloat.hs b/lib/Numeric/FormatFloat.hs
@@ -11,8 +11,6 @@ module Numeric.FormatFloat(
   showHFloat,
 
   ) where
-import Prelude()
-import MiniPrelude
 import Data.Char
 import Numeric.Show