format nits
This commit is contained in:
parent
108532268b
commit
6045cc5c4b
1 changed files with 2 additions and 2 deletions
|
@ -72,12 +72,12 @@ import Data.ByteString.Char8 (pack)
|
||||||
import Data.ByteString.Internal (c2w)
|
import Data.ByteString.Internal (c2w)
|
||||||
import qualified Data.ByteString.Lazy as L
|
import qualified Data.ByteString.Lazy as L
|
||||||
import qualified Data.ByteString.Lazy.UTF8 as L8
|
import qualified Data.ByteString.Lazy.UTF8 as L8
|
||||||
|
import Data.Digest.OpenSSL.MD5
|
||||||
import Data.Int
|
import Data.Int
|
||||||
import Data.IORef
|
import Data.IORef
|
||||||
import qualified Data.List as List
|
import qualified Data.List as List
|
||||||
import Data.Maybe
|
import Data.Maybe
|
||||||
import Data.Typeable
|
import Data.Typeable
|
||||||
import Data.Digest.OpenSSL.MD5
|
|
||||||
import Database.MongoDB.BSON as BSON
|
import Database.MongoDB.BSON as BSON
|
||||||
import Database.MongoDB.Util
|
import Database.MongoDB.Util
|
||||||
import qualified Network
|
import qualified Network
|
||||||
|
@ -478,7 +478,7 @@ countMatching c col sel = do
|
||||||
res <- runCommand c db $ toBsonDoc [("count", toBson col'),
|
res <- runCommand c db $ toBsonDoc [("count", toBson col'),
|
||||||
("query", toBson sel)]
|
("query", toBson sel)]
|
||||||
let cnt = (fromBson $ fromLookup $ List.lookup (s2L "n") res :: Double)
|
let cnt = (fromBson $ fromLookup $ List.lookup (s2L "n") res :: Double)
|
||||||
return $ truncate $ cnt
|
return $ truncate cnt
|
||||||
|
|
||||||
-- | Delete documents matching /Selector/ from the given /FullCollection/.
|
-- | Delete documents matching /Selector/ from the given /FullCollection/.
|
||||||
delete :: Connection -> FullCollection -> Selector -> IO RequestID
|
delete :: Connection -> FullCollection -> Selector -> IO RequestID
|
||||||
|
|
Loading…
Reference in a new issue