diff --git a/protolude.cabal b/protolude.cabal
--- a/protolude.cabal
+++ b/protolude.cabal
@@ -1,5 +1,5 @@
 name:                protolude
-version:             0.1.9
+version:             0.1.10
 synopsis:            A sensible set of defaults for writing custom Preludes.
 description:         A sensible set of defaults for writing custom Preludes.
 homepage:            https://github.com/sdiehl/protolude
diff --git a/src/List.hs b/src/List.hs
--- a/src/List.hs
+++ b/src/List.hs
@@ -18,7 +18,7 @@
 import Data.Functor (fmap)
 import Control.Monad (return)
 import qualified Data.Set as Set
-import GHC.Num (Num, (+))
+import GHC.Num (Num, (+), (*))
 
 head :: (Foldable f) => f a -> Maybe a
 head = foldr (\x _ -> return x) Nothing
@@ -43,7 +43,7 @@
 
 {-# INLINE product #-}
 product :: (Foldable f, Num a) => f a -> a
-product = foldl' (+) 1
+product = foldl' (*) 1
 
 {-# INLINE sum #-}
 sum :: (Foldable f, Num a) => f a -> a