1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
import Control.Monad (unless)
import Database.TokyoCabinet.TDB
import Database.TokyoCabinet.TDB.Query hiding (new)
import qualified Database.TokyoCabinet.Map as M
import qualified Database.TokyoCabinet.TDB.Query as Q (new)
data Profile = Profile { name :: String
, age :: Int } deriving Show
insertProfile :: TDB -> Profile -> IO Bool
insertProfile tdb profile =
do m <- M.new
M.put m "name" (name profile)
M.put m "age" (show . age $ profile)
Just pk <- genuid tdb
put tdb (show pk) m
main :: IO ()
main = do t <- new
open t "foo.tct" [OWRITER, OCREAT] >>= err t
mapM_ (insertProfile t) [ Profile "tom" 23
, Profile "bob" 24
, Profile "alice" 20 ]
q <- Q.new t
addcond q "age" QCNUMGE "23"
setorder q "name" QOSTRASC
proc q $ \pk cols -> do
Just name <- M.get cols "name"
putStrLn name
M.put cols "name" (name ++ "!")
return (QPPUT cols)
close t >>= err t
return ()
where
err tdb = flip unless $ ecode tdb >>= error . show
|
