Permalink
Browse files

remove a couple shadow warnings

  • Loading branch information...
1 parent 3a7f235 commit 2568f9e530f6318ef36d425c744c5c8302632253 Tony Hannan committed Jul 27, 2010
Showing with 5 additions and 5 deletions.
  1. +3 −3 Database/MongoDB/Connection.hs
  2. +2 −2 Database/MongoDB/Query.hs
@@ -156,10 +156,10 @@ newConnection mos (ReplicaSet vHosts) = throwLeft . liftIO $ left (userError . s
Left (fs, is) -> if null is
then return (Left fs)
else do
- replicas <- sortedReplicas (head is)
- writeIORef vHosts replicas
+ reps <- sortedReplicas (head is)
+ writeIORef vHosts reps
-- try again in case new replicas in info
- (fst +++ fst) <$> connectFirst mos replicas
+ (fst +++ fst) <$> connectFirst mos reps
connectFirst :: MasterOrSlaveOk -> [Host] -> IO (Either ([(Host, IOError)], [ReplicaInfo]) (Connection, ReplicaInfo))
-- ^ Connect to first host that succeeds and is master/slave, otherwise return list of failed connections plus info of connections that succeeded but were not master/slave.
@@ -364,8 +364,8 @@ runQuery :: (DbConn m) => Bool -> [Notice] -> Query -> m CursorState'
-- ^ Send query request and return cursor state
runQuery isExplain ns q = do
db <- thisDatabase
- slaveOk <- context
- call' ns (queryRequest isExplain slaveOk q db)
+ slaveOK <- context
+ call' ns (queryRequest isExplain slaveOK q db)
find :: (DbConn m) => Query -> m Cursor
-- ^ Fetch documents satisfying query

0 comments on commit 2568f9e

Please sign in to comment.