Data/Floating/Classes.hs

   1 module Data.Floating.Classes where
   2
   3 import Prelude hiding (Floating(..), RealFloat(..))
   4
   5 class Fractional a => Floating a where
   6     (**)  :: a -> a -> a
   7     acos  :: a -> a
   8     asin  :: a -> a
   9     atan  :: a -> a
  10     cos   :: a -> a
  11     sin   :: a -> a
  12     tan   :: a -> a
  13     exp   :: a -> a
  14     log   :: a -> a
  15
  16 class Floating a => RealFloat a where
  17     copysign  :: a -> a -> a
  18     nextafter :: a -> a -> a
  19     atan2     :: a -> a -> a
  20     exp2      :: a -> a
  21     expm1     :: a -> a
  22     log10     :: a -> a
  23     log1p     :: a -> a
  24     log2      :: a -> a
  25     logb      :: a -> a
  26     infinity  :: a
  27     nan       :: a
  28     pi        :: a
  29
  30     infinity = 1/0
  31     nan      = 0/0
  32     pi       = 4 * atan 1