jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix product implementation

Browse Source
This commit is contained in:
Moritz Kiefer
2016-10-18 15:13:01 +02:00
parent cf2fb7cd3a
commit bccd31e327
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/List.hs
+2 -2
View File
@@ -18,7 +18,7 @@ import Data.Function ((.))
import Data.Functor (fmap) import Data.Functor (fmap)
import Control.Monad (return) import Control.Monad (return)
import qualified Data.Set as Set import qualified Data.Set as Set
import GHC.Num (Num, (+)) import GHC.Num (Num, (+), (*))
head :: (Foldable f) => f a -> Maybe a head :: (Foldable f) => f a -> Maybe a
head = foldr (\x _ -> return x) Nothing head = foldr (\x _ -> return x) Nothing
@@ -43,7 +43,7 @@ list def f xs = case xs of
{-# INLINE product #-} {-# INLINE product #-}
product :: (Foldable f, Num a) => f a -> a product :: (Foldable f, Num a) => f a -> a
product = foldl' (+) 1 product = foldl' (*) 1
{-# INLINE sum #-} {-# INLINE sum #-}
sum :: (Foldable f, Num a) => f a -> a sum :: (Foldable f, Num a) => f a -> a