Added the latest fold

Gabriella439 · Jun 7, 2014 · 591c64a · 591c64a
1 parent ac0d4af
commit 591c64a
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Control/Foldl.hs b/src/Control/Foldl.hs
@@ -43,6 +43,7 @@ module Control.Foldl (
     , foldMap
     , head
     , last
+    , latest
     , null
     , length
     , and
@@ -236,6 +237,13 @@ last :: Fold a (Maybe a)
 last = Fold (\_ -> Just') Nothing' lazy
 {-# INLINABLE last #-}
 
+{-| Get the last element of a container or return a default value if the container
+    is empty
+-}
+latest :: a -> Fold a a
+latest a = Fold (\_ a' -> a') a id
+{-# INLINABLE latest #-}
+
 -- | Returns 'True' if the container is empty, 'False' otherwise
 null :: Fold a Bool
 null = Fold (\_ _ -> False) True id