equal-files 0.0.2 → 0.0.2.1

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

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

equal-files.cabal view

@@ -1,5 +1,5 @@ Name:           equal-files-Version:        0.0.2+Version:        0.0.2.1 License:        GPL License-File:   LICENSE Author:         Henning Thielemann <haskell@henning-thielemann.de>

src/EqualFiles.hs view

@@ -1,8 +1,8 @@ module Main where  import System.Environment (getArgs, )-import qualified Data.ByteString as B-import Data.List (groupBy, sort, intersperse, )+import qualified Data.ByteString.Lazy as B+import Data.List (groupBy, sort, )   groupEqualElems :: (Ord key, Ord elem) => [(elem, key)] -> [[key]]@@ -22,6 +22,6 @@ -- output results in a quoted way that might be accessible to further shell scripts main :: IO () main =-   mapM_ (putStrLn . concat . intersperse " " . map show) =<<+   mapM_ (putStrLn . unwords . map show) =<<    clusterEqualFiles =<<    getArgs