alternative implementation of floating point abs and num

t.hs

data NewFloat a = F a deriving (Eq,Ord,Show)

instance RealFloat a => Num (NewFloat a) where
    F x + F y = F (x + y)
    F x - F y = F (x - y)
    F x * F y = F (x * y)
    fromInteger n = F (fromInteger n)
    abs = newAbs
    signum = newSignum

newAbs (F x)
    | x > 0  = F x
    | x == 0 = F 0
    | x < 0  = F (-x)

newSignum (F x)
    | x > 0  = F 1
    | x == 0 = if isNegativeZero x
                then F (-0.0)
                else F 0
    | x < 0  = F (-1)