equal-files 0.0.1 → 0.0.2

raw patch · 2 files changed

+6/−2 lines, 2 filesdep +bytestring

Dependencies added: bytestring

Files

equal-files.cabal +4/−1
src/EqualFiles.hs +2/−1

equal-files.cabal view

@@ -1,5 +1,5 @@ Name:           equal-files-Version:        0.0.1+Version:        0.0.2 License:        GPL License-File:   LICENSE Author:         Henning Thielemann <haskell@henning-thielemann.de>@@ -40,6 +40,9 @@    description: Choose the new smaller, split-up base package.  Executable equal-files+  Build-Depends:+    bytestring >= 0.9 && <0.10+   If flag(splitBase)     Build-Depends:       base >= 3

src/EqualFiles.hs view

@@ -1,6 +1,7 @@ module Main where  import System.Environment (getArgs, )+import qualified Data.ByteString as B import Data.List (groupBy, sort, intersperse, )  @@ -15,7 +16,7 @@  clusterEqualFiles :: [FilePath] -> IO [[FilePath]] clusterEqualFiles fileNames =-   do files <- mapM readFile fileNames+   do files <- mapM B.readFile fileNames       return (clusterEqualElems (zip files fileNames))  -- output results in a quoted way that might be accessible to further shell scripts