@@ -1039,10 +1039,7 @@ filteredFilesFromArchive zf f =
10391039 mapMaybe (fileAndBinary zf) (filter f (filesInArchive zf))
10401040 where
10411041 fileAndBinary :: Archive -> FilePath -> Maybe (FilePath, BL.ByteString)
1042− fileAndBinary a fp =
1043− case findEntryByPath fp a of
1044− Just e -> Just (fp, fromEntry e)
1045− Nothing -> Nothing
1042+ fileAndBinary a fp = findEntryByPath fp a >>= \e -> Just (fp, fromEntry e)
10461043
10471044---
10481045--- Squash blocks into inlines