Data/Floating.hs

   1 module Data.Floating (
   2     module Data.Floating.Classes,
   3     module Data.Floating.Double,
   4     module Data.Floating
   5 ) where
   6
   7 import Prelude hiding (RealFloat(..))
   8 import Data.Floating.Classes
   9 import Data.Floating.Double
  10
  11 import Control.Monad
  12
  13 isInfinite :: RealFloat a => a -> Bool
  14 isInfinite = (== FPInfinite) . classify
  15
  16 isNaN :: RealFloat a => a -> Bool
  17 isNaN = (== FPNaN) . classify
  18
  19 isNormal :: RealFloat a => a -> Bool
  20 isNormal = (== FPNormal) . classify
  21
  22 isSubNormal :: RealFloat a => a -> Bool
  23 isSubNormal = (== FPSubNormal) . classify
  24
  25 isFinite :: RealFloat a => a -> Bool
  26 isFinite = liftM2 (||) isNormal isSubNormal