git.iko.soy/typeable/pandoc
on master help sign in
Use bind function instead of pattern matching
4417e33Hubert Plociniczak
src/Text/Pandoc/Shared.hs+1−4
compare with master
unifiedsplit
@@ -1039,10 +1039,7 @@ filteredFilesFromArchive zf f =
1039 mapMaybe (fileAndBinary zf) (filter f (filesInArchive zf))
1039 mapMaybe (fileAndBinary zf) (filter f (filesInArchive zf))
1040 where
1040 where
1041 fileAndBinary :: Archive -> FilePath -> Maybe (FilePath, BL.ByteString)
1041 fileAndBinary :: Archive -> FilePath -> Maybe (FilePath, BL.ByteString)
1042− fileAndBinary a fp =
1043− case findEntryByPath fp a of
1042+ fileAndBinary a fp = findEntryByPath fp a >>= \e -> Just (fp, fromEntry e)
1044− Just e -> Just (fp, fromEntry e)
1045− Nothing -> Nothing
1046
1043
1047---
1044---
1048--- Squash blocks into inlines
1045--- Squash blocks into inlines