Data/Floating.hs

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