gdritter repos tansu-berkeleydb / master sample / Main.hs
master

Tree @master (Download .tar.gz)

Main.hs @master 

28f58b7
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 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
module Main where

import Control.Monad (void)
import Database.Tansu
import Database.Tansu.Backend.BerkeleyDb

main :: IO ()
main = void $ withBerkeleyDb "sampledb" $ \ db -> do
  putStrLn "Populating test database"
  run db $ do
    "one"   =: "un"
    "two"   =: "du"
    "three" =: "tri"
    "four"  =: "kvar"

  putStr "looking up key 'three': "
  rs <- run db $ get "three"
  case rs of
    Right val -> putStrLn val
    Left _    -> putStrLn "...not in the database."

  putStr "looking up key 'five': "
  rs <- run db $ get "five"
  case rs of
    Right val -> putStrLn val
    Left _    -> putStrLn "...not in the database."