hunk ./Safe/Foldable.hs 5 -module Safe.Foldable where +module Safe.Foldable( + foldl1Note, foldl1Def, foldl1May, foldl1Safe, + foldr1Note, foldr1Def, foldr1May, foldr1Safe, + findJust, findJustDef, findJustNote, findJustSafe + ) where hunk ./CHANGES.txt 3 + #494, add foldl1' wrappings hunk ./Safe.hs 45 + foldl1Def', foldl1May', foldl1Note', hunk ./Safe.hs 177 +foldl1Def' :: a -> (a -> a -> a) -> [a] -> a +foldl1Def' def f = liftDef (foldl1' f) null def + +foldl1May' :: (a -> a -> a) -> [a] -> Maybe a +foldl1May' f = liftMay (foldl1' f) null + +foldl1Note' :: String -> (a -> a -> a) -> [a] -> a +foldl1Note' note f = liftNote (foldl1' f) null "foldl1' []" note + + hunk ./CHANGES.txt 3 +0.3.3 hunk ./safe.cabal 4 -version: 0.3.2 +version: 0.3.3