Increase chunk size back to 200

2021-11-04 10:11:37 +02:00
parent 00e585281c
commit a47d4903cb
1 changed files with 1 additions and 1 deletions
--- a/src/Control/Addressbook/Streaming.hs
+++ b/src/Control/Addressbook/Streaming.hs
@@ -47,7 +47,7 @@ run = do
  let datFile = datDir </> ".addressbook.dat"
  original <- Set.fromList . map LBS.toStrict . lbsLines <$> LBS.readFile datFile
  xs <- LBS.getContents >>= stream
-  let set = original `Set.union` F.fold (parMap rseq F.fold (chunks 20 xs))
+  let set = original `Set.union` F.fold (parMap rseq F.fold (chunks 200 xs))
  unless (original == set) $
    runResourceT $
      runConduit $