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

format nits

Browse source
This commit is contained in:
Scott R. Parish 2010-03-12 23:54:41 -06:00
parent 108532268b
commit 6045cc5c4b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Database/MongoDB.hs
View file

@ -72,12 +72,12 @@ import Data.ByteString.Char8 (pack)
import Data.ByteString.Internal (c2w)
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Lazy.UTF8 as L8
import Data.Digest.OpenSSL.MD5
import Data.Int
import Data.IORef
import qualified Data.List as List
import Data.Maybe
import Data.Typeable
import Data.Digest.OpenSSL.MD5
import Database.MongoDB.BSON as BSON
import Database.MongoDB.Util
import qualified Network
@ -478,7 +478,7 @@ countMatching c col sel = do
res <- runCommand c db $ toBsonDoc [("count", toBson col'),
("query", toBson sel)]
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 :: Connection -> FullCollection -> Selector -> IO RequestID