Commit 95e4e7aa authored by simonmar's avatar simonmar
Browse files

[project @ 2002-03-27 17:47:07 by simonmar]

New library fixup
parent fbd2a731
-- Test gcdInt/gcdInteger
import PrelBase ( gcdInt )
import PrelNum ( gcdInteger )
import GHC.Base ( gcdInt )
import GHC.Num ( gcdInteger )
main :: IO ()
main = do
......
module Main where
import PrelGHC
import PrelBase
import PrelFloat
import GHC.Exts ( Float(F#),
eqFloat#, neFloat#, ltFloat#,
leFloat#, gtFloat#, geFloat#
)
fcmp_eq, fcmp_ne, fcmp_lt, fcmp_le, fcmp_gt, fcmp_ge :: (String, Float -> Float -> Bool)
fcmp_eq = ("==", \ (F# a) (F# b) -> a `eqFloat#` b)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment