Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Prefix internal unused fields with underscore.

Browse source 
Due to warning: [-Wunused-top-binds].
This commit is contained in:
Scott Fleischman 2019-05-29 17:03:03 -07:00
parent 5f04dc6a23
commit b094dff057
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
Database/MongoDB/GridFS.hs
View file

@ -121,14 +121,14 @@ sourceFile file = yieldChunk 0 where
-- Used to keep data during writing -- Used to keep data during writing
data FileWriter = FileWriter data FileWriter = FileWriter
{ fwChunkSize :: Int64 { _fwChunkSize :: Int64
, fwBucket :: Bucket , _fwBucket :: Bucket
, fwFilesId :: ObjectId , _fwFilesId :: ObjectId
, fwChunkIndex :: Int , _fwChunkIndex :: Int
, fwSize :: Int64 , _fwSize :: Int64
, fwAcc :: L.ByteString , _fwAcc :: L.ByteString
, fwMd5Context :: MD5Context , _fwMd5Context :: MD5Context
, fwMd5acc :: L.ByteString , _fwMd5acc :: L.ByteString
} }
-- Finalize file, calculating md5 digest, saving the last chunk, and creating the file in the bucket -- Finalize file, calculating md5 digest, saving the last chunk, and creating the file in the bucket