Simplest example of using haskell CouchDB

couchdbtest.hs

{-# LANGUAGE DeriveDataTypeable, ScopedTypeVariables #-}

import Database.CouchDB 

import Text.JSON
import Text.JSON.Pretty
import Text.JSON.Generic

data BookData = BookData { title :: String, author :: String } 
                deriving (Show, Typeable, Data)

ppJSON = putStrLn . render . pp_value 

testdb = db "test"

data1 = BookData "my book" "me"
data2 = BookData "your book" "you" 

data1json = toJSON data1

main :: IO ()
main = do 
  (doc1,rev1)<- runCouchDB' (newDoc testdb data1json) 
  print (doc1,rev1)
  Just (_,_,jvalue) <- runCouchDB' (getDoc testdb doc1)
  
  ppJSON jvalue