fix some warnings. bump version for previous 7.2.1 compatibility fix

TonyGen · Nov 10, 2011 · d506011 · d506011
1 parent 9dae52a
commit d506011
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/Database/MongoDB/Connection.hs b/Database/MongoDB/Connection.hs
@@ -18,7 +18,7 @@ module Database.MongoDB.Connection (
 import Prelude hiding (lookup)
 import Database.MongoDB.Internal.Protocol (Pipe, newPipe)
 import System.IO.Pipeline (IOE, close, isClosed)
-import System.IO.Error as E (try)
+import Control.Exception as E (try)
 import Network (HostName, PortID(..), connectTo)
 import Text.ParserCombinators.Parsec as T (parse, many1, letter, digit, char, eof, spaces, try, (<|>))
 import Control.Monad.Identity (runIdentity)

diff --git a/Database/MongoDB/Internal/Protocol.hs b/Database/MongoDB/Internal/Protocol.hs
@@ -35,7 +35,7 @@ import Data.IORef
 import System.IO.Unsafe (unsafePerformIO)
 import qualified Crypto.Hash.MD5 as MD5 (hash)
 import Data.UString as U (pack, append, toByteString)
-import System.IO.Error as E (try)
+import Control.Exception as E (try)
 import Control.Monad.Error
 import System.IO (hFlush)
 import Database.MongoDB.Internal.Util (whenJust, hGetN, bitOr, byteStringHex)

diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs
@@ -41,8 +41,8 @@ module Database.MongoDB.Query (
 import Prelude as X hiding (lookup)
 import Data.UString as U (UString, dropWhile, any, tail)
 import Data.Bson (Document, at, valueAt, lookup, look, Field(..), (=:), (=?), Label, Value(String,Doc), Javascript, genObjectId)
-import Database.MongoDB.Internal.Protocol (Pipe, Notice(..), Request(GetMore), Reply(..), QueryOption(..), ResponseFlag(..), InsertOption(..), UpdateOption(..), DeleteOption(..), CursorId, FullCollection, Username, Password, pwKey)
-import qualified Database.MongoDB.Internal.Protocol as P (send, call, Request(Query, qOptions, qFullCollection, qSkip, qBatchSize, qSelector, qProjector))
+import Database.MongoDB.Internal.Protocol (Pipe, Notice(..), Request(GetMore, qOptions, qFullCollection, qSkip, qBatchSize, qSelector, qProjector), Reply(..), QueryOption(..), ResponseFlag(..), InsertOption(..), UpdateOption(..), DeleteOption(..), CursorId, FullCollection, Username, Password, pwKey)
+import qualified Database.MongoDB.Internal.Protocol as P (send, call, Request(Query))
 import Database.MongoDB.Internal.Util (MonadIO', loop, liftIOE, true1, (<.>))
 import Control.Monad.MVar
 import Control.Monad.Error

diff --git a/mongoDB.cabal b/mongoDB.cabal
@@ -1,5 +1,5 @@
 name: mongoDB
-version: 1.1.0
+version: 1.1.1
 build-type: Simple
 license: OtherLicense
 license-file: LICENSE