Initial commit

[altfloat.git] / Data / Floating / Classes.hs

module Data.Floating.Classes where

import Prelude hiding (Floating)

class Fractional a => Floating a where
    copysign :: a -> a -> a
    infinity :: a
    nan :: a

    infinity = 1/0
    nan      = 0/0