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