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

Clean up redundant warnings

Browse source
This commit is contained in:
Victor Denisov 2016-05-01 19:11:02 -07:00
parent 655f4b90bc
commit a4e5726e1e
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Database/MongoDB/Internal/Protocol.hs
View file

@ -34,7 +34,6 @@ module Database.MongoDB.Internal.Protocol (
#if !MIN_VERSION_base(4,8,0) #if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
#endif #endif
import Control.Arrow ((***))
import Control.Monad (forM, replicateM, unless) import Control.Monad (forM, replicateM, unless)
import Data.Binary.Get (Get, runGet) import Data.Binary.Get (Get, runGet)
import Data.Binary.Put (Put, runPut) import Data.Binary.Put (Put, runPut)
@ -50,7 +49,6 @@ import Control.Concurrent.Chan (Chan, newChan, readChan, writeChan)
import Control.Concurrent (ThreadId, forkIO, killThread) import Control.Concurrent (ThreadId, forkIO, killThread)
import Control.Exception.Lifted (onException, throwIO, try) import Control.Exception.Lifted (onException, throwIO, try)
import qualified Control.Exception.Lifted as CEL
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
@ -64,8 +62,7 @@ import qualified Crypto.Hash.MD5 as MD5
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as TE import qualified Data.Text.Encoding as TE
import Database.MongoDB.Internal.Util (whenJust, bitOr, byteStringHex) import Database.MongoDB.Internal.Util (bitOr, byteStringHex)
import System.IO (hClose, hFlush)
import Database.MongoDB.Internal.Connection (Connection) import Database.MongoDB.Internal.Connection (Connection)
import qualified Database.MongoDB.Internal.Connection as Connection import qualified Database.MongoDB.Internal.Connection as Connection