X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FBigFloat.hs;h=cc228bead187898a255eae3d3200a4edad546d10;hb=8ba752ee2e6a9e4f80843c21b52e2d534fde01c0;hp=4c57aadeb1e5f851976cc30414e0a7c6edf3fcea;hpb=2f54e89d36e835c58efcc281741632d457859b20;p=numerical-analysis.git

diff --git a/src/BigFloat.hs b/src/BigFloat.hs
index 4c57aad..cc228be 100644
--- a/src/BigFloat.hs
+++ b/src/BigFloat.hs
@@ -22,7 +22,7 @@ type R = BigFloat Prec50
 
 instance Epsilon e => Additive.C (BigFloat e) where
   (+) = (P.+)
-  zero = (P.fromInteger 0)
+  zero = 0
   negate = (P.negate)
 
 instance Epsilon e => Ring.C (BigFloat e) where