basex-client-0.1.0.0: src/QueryBindExample.hs

module QueryBindExample where

import BaseXClient hiding (query)

query :: String
query = "declare variable $name external; for $i in 1 to 10 return element { $name } { $i }"

main :: IO ()
main = withSession "localhost" 1984 "admin" "admin" $ \session ->
  withQuery session query $ \q -> do
    bind q "name" "number" ""
    executeQuery q >>= print