tom-lpsd

import Database.TokyoCabinet.BDB
import qualified Database.TokyoCabinet.BDB.Cursor as C

main = do bdb <- new
          setcmpfunc bdb CMPDECIMAL
          -- setcmpfunc bdb CMPLEXICAL -- lexical order(default)
          -- setcmpfunc bdb CMPINT32
          -- setcmpfunc bdb CMPINT64
          open bdb "foo.tcb" [OWRITER, OCREAT]
          put bdb "1" "200"