Recover original indentation

Database/MongoDB/GridFS.hs

@@ -46,7 +46,7 @@ defaultChunkSize :: Int64
 -- ^ The default chunk size is 256 kB
 defaultChunkSize = 256 * 1024
 
--- magic constant for the
+-- magic constant for md5Finalize
 md5BlockSizeInBytes :: Int
 md5BlockSizeInBytes = 64
 
@@ -159,8 +159,7 @@ finalizeMD5 ctx rest =
 
 -- Write as many chunks as can be written from the file writer
 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
   let md5BlockLength = fromIntegral $ untag (blockLength :: Tagged MD5Digest Int)
   let md5acc_temp = (md5acc `L.append` chunk)

docker-compose.yml

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