module AddExample where

import BaseXClient

main :: IO ()
main = withSession "localhost" 1984 "admin" "admin" $ \session -> do
  execute "create db database" session >>= print
  add "world/World.xml" "<x>Hello World!</x>" session >>= print
  add "Universe.xml" "<x>Hello Universe!</x>" session >>= print
  execute "xquery /" session >>= print
  execute "drop db database" session >>= print