Permalink
Browse files

fix some warnings. bump version for previous 7.2.1 compatibility fix

  • Loading branch information...
1 parent 9dae52a commit d506011cd18850f2bd4dd1e3c6db7f696b63d1dd Tony Hannan committed Nov 10, 2011
Showing with 5 additions and 5 deletions.
  1. +1 −1 Database/MongoDB/Connection.hs
  2. +1 −1 Database/MongoDB/Internal/Protocol.hs
  3. +2 −2 Database/MongoDB/Query.hs
  4. +1 −1 mongoDB.cabal
@@ -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)
@@ -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)
@@ -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
View
@@ -1,5 +1,5 @@
name: mongoDB
-version: 1.1.0
+version: 1.1.1
build-type: Simple
license: OtherLicense
license-file: LICENSE

0 comments on commit d506011

Please sign in to comment.