diff --git a/Data/Peano.hs b/Data/Peano.hs
--- a/Data/Peano.hs
+++ b/Data/Peano.hs
@@ -16,8 +16,8 @@
 plus (Succ n) m = Succ (plus n m)
 
 times :: Peano -> Peano -> Peano
-times Zero     _ = Zero
-times (Succ n) m = plus n (times n m)
+times _ Zero = Zero
+times n (Succ m) = plus n (times n m)
 
 infinity :: Peano
 infinity = Succ infinity
diff --git a/Peano.cabal b/Peano.cabal
--- a/Peano.cabal
+++ b/Peano.cabal
@@ -7,7 +7,7 @@
 -- The package version. See the Haskell package versioning policy
 -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for
 -- standards guiding when and how versions should be incremented.
-Version:             0.0.3
+Version:             0.0.4
 
 -- A short (one-line) description of the package.
 Synopsis:            simple Peano numbers