MasseR/addressbook
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Increase chunk size back to 200

Browse Source
This commit is contained in:
Mats Rauhala
2021-11-04 10:11:37 +02:00
parent 00e585281c
commit a47d4903cb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Addressbook/Streaming.hs
View File

@@ -47,7 +47,7 @@ run = do
let datFile = datDir </> ".addressbook.dat" let datFile = datDir </> ".addressbook.dat"
original <- Set.fromList . map LBS.toStrict . lbsLines <$> LBS.readFile datFile original <- Set.fromList . map LBS.toStrict . lbsLines <$> LBS.readFile datFile
xs <- LBS.getContents >>= stream 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) $ unless (original == set) $
runResourceT $ runResourceT $
runConduit $ runConduit $