small bugfix

MAnyKey · MAnyKey · commit 70bcf8b61f55 · 2012-10-21T22:44:38.000+04:00
diff --git a/ITMOPrelude/Primitive.hs b/ITMOPrelude/Primitive.hs
@@ -250,7 +250,7 @@ instance Group Int where
 data MulInt = Mult Int
 
 instance Monoid MulInt where
-  mempty = Mult intZero
+  mempty = Mult intOne
   mappend (Mult a) (Mult b) = Mult $ a .*. b
 
 -------------------------------------------
