Merge patch for Mongo 6

Database/MongoDB/Query.hs

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