diff --git a/exercises/practice/list-ops/.meta/examples/success-standard/src/ListOps.hs b/exercises/practice/list-ops/.meta/examples/success-standard/src/ListOps.hs index b67ada687..bf63d11f6 100644 --- a/exercises/practice/list-ops/.meta/examples/success-standard/src/ListOps.hs +++ b/exercises/practice/list-ops/.meta/examples/success-standard/src/ListOps.hs @@ -10,7 +10,7 @@ module ListOps ) where import Prelude hiding - ( length, reverse, map, filter, foldr, (++), concat ) + ( length, reverse, map, filter, foldl', foldr, (++), concat ) foldl' :: (b -> a -> b) -> b -> [a] -> b foldl' f = go diff --git a/exercises/practice/list-ops/src/ListOps.hs b/exercises/practice/list-ops/src/ListOps.hs index 36e8e1a39..010473e10 100644 --- a/exercises/practice/list-ops/src/ListOps.hs +++ b/exercises/practice/list-ops/src/ListOps.hs @@ -10,7 +10,7 @@ module ListOps ) where import Prelude hiding - ( length, reverse, map, filter, foldr, (++), concat ) + ( length, reverse, map, filter, foldl', foldr, (++), concat ) foldl' :: (b -> a -> b) -> b -> [a] -> b foldl' f z xs = error "You need to implement this function." diff --git a/exercises/practice/list-ops/test/Tests.hs b/exercises/practice/list-ops/test/Tests.hs index 807a987a6..dd7ca5f55 100644 --- a/exercises/practice/list-ops/test/Tests.hs +++ b/exercises/practice/list-ops/test/Tests.hs @@ -8,6 +8,7 @@ import Prelude hiding ( (++) , concat , filter + , foldl' , foldr , length , map