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

expose query options

Browse source
This commit is contained in:
Scott R. Parish 2010-01-13 07:14:31 -06:00
parent ec5760f0ec
commit a2c5888e41
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
Database/MongoDB.hs
View file

@ -12,6 +12,7 @@ import Control.Monad
import Data.Binary import Data.Binary
import Data.Binary.Get import Data.Binary.Get
import Data.Binary.Put import Data.Binary.Put
import Data.Bits
import Data.ByteString.Char8 import Data.ByteString.Char8
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
@ -80,6 +81,18 @@ type RequestID = Int32
type NumToSkip = Int32 type NumToSkip = Int32
type NumToReturn = Int32 type NumToReturn = Int32
data QueryOpts = QO_TailableCursor
| QO_SlaveOK
| QO_OpLogReplay
| QO_NoCursorTimeout
deriving (Show)
fromQueryOpts [opts] = List.foldl (.|.) 0 $ fmap toVal opts
where toVal QO_TailableCursor = 2
toVal QO_SlaveOK = 4
toVal QO_OpLogReplay = 8
toVal QO_NoCursorTimeout = 16
delete :: Connection -> Collection -> Selector -> IO RequestID delete :: Connection -> Collection -> Selector -> IO RequestID
delete c col sel = do delete c col sel = do
let body = runPut $ do let body = runPut $ do
@ -113,9 +126,9 @@ insertMany c col docs = do
L.hPut (cHandle c) msg L.hPut (cHandle c) msg
return reqID return reqID
query :: Connection -> Collection -> NumToSkip -> NumToReturn -> Selector -> query :: Connection -> Collection -> [QueryOpts] -> NumToSkip -> NumToReturn ->
Maybe FieldSelector -> IO [BSONObject] Selector -> Maybe FieldSelector -> IO [BSONObject]
query c col skip ret sel fsel = do query c col opts skip ret sel fsel = do
let body = runPut $ do let body = runPut $ do
putI32 0 -- TODO opts putI32 0 -- TODO opts
putCol col putCol col