HXQ-0.8.3: TestDB.hs

{--------------------------------------------------------------
-
- A main program to test XQuery connected to a Sqlite database
- To create the database load the file data/company.sql in sqlite3
-
- Programmer: Leonidas Fegaras (fegaras@cse.uta.edu)
- Date: 05/21/2008
-
---------------------------------------------------------------}

{-# OPTIONS_GHC -fth #-}

module Main where

import XML.HXQ.XQuery


main = do db <- connect "myDB"
          e <- $(xqdb ("  for $r in sql('  select e.fname, d.dname          "
                     ++"                   from employee e, department d    "
                     ++"                   where e.dno = d.dnumber          "
                     ++"                     and e.lname = ?           ',   "
                     ++"                'English')                          "
                     ++"  return <result>{$r/fname,$r/dname}</result>       ")) db
          putXSeq e
          disconnect db