From b094dff0578f8465205be5670cf1a61c53ef99cf Mon Sep 17 00:00:00 2001
From: Scott Fleischman <scott-fleischman@users.noreply.github.com>
Date: Wed, 29 May 2019 17:03:03 -0700
Subject: [PATCH] Prefix internal unused fields with underscore.

Due to warning: [-Wunused-top-binds].
---
 Database/MongoDB/GridFS.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/Database/MongoDB/GridFS.hs b/Database/MongoDB/GridFS.hs
index 1f0a12c..78805c1 100644
--- a/Database/MongoDB/GridFS.hs
+++ b/Database/MongoDB/GridFS.hs
@@ -121,14 +121,14 @@ sourceFile file = yieldChunk 0 where
 
 -- Used to keep data during writing
 data FileWriter = FileWriter
-  { fwChunkSize :: Int64
-  , fwBucket :: Bucket
-  , fwFilesId :: ObjectId
-  , fwChunkIndex :: Int
-  , fwSize :: Int64
-  , fwAcc :: L.ByteString
-  , fwMd5Context :: MD5Context
-  , fwMd5acc :: L.ByteString
+  { _fwChunkSize :: Int64
+  , _fwBucket :: Bucket
+  , _fwFilesId :: ObjectId
+  , _fwChunkIndex :: Int
+  , _fwSize :: Int64
+  , _fwAcc :: L.ByteString
+  , _fwMd5Context :: MD5Context
+  , _fwMd5acc :: L.ByteString
   }
 
 -- Finalize file, calculating md5 digest, saving the last chunk, and creating the file in the bucket