Recover original indentation

This commit is contained in:
Victor Denisov 2018-01-27 11:46:53 -08:00
parent 582a16d08e
commit 77b84a5695
2 changed files with 22 additions and 21 deletions

View file

@ -46,7 +46,7 @@ defaultChunkSize :: Int64
-- ^ The default chunk size is 256 kB -- ^ The default chunk size is 256 kB
defaultChunkSize = 256 * 1024 defaultChunkSize = 256 * 1024
-- magic constant for the -- magic constant for md5Finalize
md5BlockSizeInBytes :: Int md5BlockSizeInBytes :: Int
md5BlockSizeInBytes = 64 md5BlockSizeInBytes = 64
@ -159,8 +159,7 @@ finalizeMD5 ctx rest =
-- Write as many chunks as can be written from the file writer -- Write as many chunks as can be written from the file writer
writeChunks :: (Monad m, MonadIO m) => FileWriter -> L.ByteString -> Action m FileWriter writeChunks :: (Monad m, MonadIO m) => FileWriter -> L.ByteString -> Action m FileWriter
writeChunks (FileWriter chunkSize bucket files_id i size acc md5context md5acc) chunk = writeChunks (FileWriter chunkSize bucket files_id i size acc md5context md5acc) chunk = do
do
-- Update md5 context -- Update md5 context
let md5BlockLength = fromIntegral $ untag (blockLength :: Tagged MD5Digest Int) let md5BlockLength = fromIntegral $ untag (blockLength :: Tagged MD5Digest Int)
let md5acc_temp = (md5acc `L.append` chunk) let md5acc_temp = (md5acc `L.append` chunk)

View file

@ -1,6 +1,8 @@
version: '3' version: '3'
services: services:
mongodb: mongodb:
ports:
- 27017:27017
image: mongo:3.4.3 image: mongo:3.4.3
mongodb-haskell: mongodb-haskell:
image: phadej/ghc:8.0.2 image: phadej/ghc:8.0.2