From bccd31e32752b15f2a78f25b38c97fd28067a86c Mon Sep 17 00:00:00 2001 From: Moritz Kiefer Date: Tue, 18 Oct 2016 15:13:01 +0200 Subject: [PATCH] Fix product implementation --- src/List.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/List.hs b/src/List.hs index 66b325248..9c22f1785 100644 --- a/src/List.hs +++ b/src/List.hs @@ -18,7 +18,7 @@ import Data.Function ((.)) 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 @@ list def f xs = case xs of {-# 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