module Text.XML.HXQ.OptionalDB where
import Text.XML.HXQ.XTree
import Text.XML.HXQ.Parser
import Language.Haskell.TH
type Statement = String
type Table = String
data Connection = Connection String
noDBerror = error "This version of HXQ does not provide database connectivity"
publishXmlDoc :: FilePath -> String -> Bool -> Ast
publishXmlDoc filepath name _ = noDBerror
executeSQL :: Statement -> XSeq -> IO XSeq
executeSQL stmt args = noDBerror
prepareSQL :: Connection -> String -> IO Statement
prepareSQL db sql = noDBerror
connect :: FilePath -> IO Connection
connect filepath = noDBerror
disconnect :: Connection -> IO ()
disconnect db = noDBerror
commit :: Connection -> IO ()
commit db = noDBerror
rollback :: Connection -> IO ()
rollback db = noDBerror
printSchema :: Connection -> String -> IO ()
printSchema db name = noDBerror
genSchema :: Connection -> String -> String -> IO Table
genSchema db file name = noDBerror
shred :: Connection -> String -> String -> IO ()
shred db file name = noDBerror
shredC :: String -> String -> String -> Q Exp
shredC db file name = noDBerror
createIndex :: Connection -> String -> String -> IO ()
createIndex db name tagname = noDBerror
insertDB :: Connection -> XSeq -> XSeq -> IO XSeq
insertDB db from into = noDBerror
deleteDB :: Connection -> XSeq -> IO XSeq
deleteDB db from = noDBerror
replaceDB :: Connection -> XSeq -> XSeq -> IO XSeq
replaceDB db dest with = noDBerror