file-collection 0.1.1.6 → 0.1.1.7

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

• Codec/Archive/FileCollection.hs +1/−1
• file-collection.cabal +1/−1

@@ -192,7 +192,7 @@      return $ map (getFile arch) $ map (<>target)      $ filter (elem target . getDirectoryContents' arch) subs   doesFileExist arch path= case findEntryByPath path arch of-    Just e → if null $ subFiles arch $ eRelativePath e+    Just e → if 1 < length $ subFiles arch $ eRelativePath e              then return True              else return False     Nothing → return False

@@ -1,5 +1,5 @@ name:                file-collection-version:             0.1.1.6+version:             0.1.1.7 synopsis:            Provide a uniform interface over file archives and directories description:         The interface is essentially the same as that provided by                      `directory`, except each function also take reference to the