Example

    import Control.Monad
    import Database.TokyoCabinet.FDB

  
    main = do fdb <- new
              -- open the database
              open fdb "casket.tcf" [OWRITER, OCREAT] >>= err fdb
              -- store records
              puts fdb [(1, "one"), (12, "twelve"), (144, "one forty four")] >>=
                        err fdb . (all id)
              -- retrieve records
              get fdb (1 :: Int) >>= maybe (error "something goes wrong") putStrLn
              -- close the database
              close fdb >>= err fdb
        where
          puts :: FDB -> [(Int, String)] -> IO [Bool]
          puts fdb = mapM (uncurry $ put fdb)

  
          err :: FDB -> Bool -> IO ()
          err fdb = flip unless $ ecode fdb >>= error . show