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

Merge patch for Mongo 6

Browse source
This commit is contained in:
Rene Vergara 2023-08-07 13:18:39 -05:00
parent 0afaf89e1d
commit 63bba3a6d3
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Database/MongoDB/Query.hs
View file

@ -1367,13 +1367,8 @@ findOne q = do
qr <- queryRequestOpMsg False q {limit = 1} qr <- queryRequestOpMsg False q {limit = 1}
let newQr = let newQr =
case fst qr of case fst qr of
<<<<<<< HEAD
Req qry ->
let (_db, coll) = splitDot (qFullCollection qry)
=======
Req P.Query{..} -> Req P.Query{..} ->
let coll = last $ T.splitOn "." qFullCollection let coll = last $ T.splitOn "." qFullCollection
>>>>>>> 46643fd8ad74254c8b22a25091c15fc7a9f1d19c
-- We have to understand whether findOne is called as -- We have to understand whether findOne is called as
-- command directly. This is necessary since findOne is used via -- command directly. This is necessary since findOne is used via
-- runCommand as a vehicle to execute any type of commands and notices. -- runCommand as a vehicle to execute any type of commands and notices.