gistfile1.hs

import Database.TokyoCabinet.BDB
import qualified Database.TokyoCabinet.BDB.Cursor as C
import Data.ByteString.Char8 (ByteString, unpack)

myCMP :: ByteString -> ByteString -> Ordering
myCMP k1 k2 = compare (reverse (unpack k1)) (reverse (unpack k2))

main = do bdb <- new
          setcmpfunc bdb (CMP myCMP)
          open bdb "foo.tcb" [OWRITER, OCREAT]
          put bdb "abz" "100"
          put bdb "def" "200"
          cur <- C.new bdb
          C.first cur
          Just key <- C.key cur
          putStrLn key
          close bdb