Implement foldl with foldr
[packages/base.git] / GHC / Num.lhs
index 689fafc..5cdf782 100644 (file)
@@ -16,7 +16,6 @@
 --
 -----------------------------------------------------------------------------
 
--- #hide
 module GHC.Num (module GHC.Num, module GHC.Integer) where
 
 import GHC.Base
@@ -63,6 +62,7 @@ class  Num a  where
     {-# INLINE negate #-}
     x - y               = x + negate y
     negate x            = 0 - x
+    {-# MINIMAL (+), (*), abs, signum, fromInteger, (negate | (-)) #-}
 
 -- | the same as @'flip' ('-')@.
 --