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
class IConnection conn
data Connection = Connection String
instance IConnection Connection
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 :: (IConnection conn) => conn -> String -> IO Statement
prepareSQL db sql = noDBerror
connect :: FilePath -> IO Connection
connect filepath = noDBerror
disconnect :: conn -> IO ()
disconnect db = noDBerror
printSchema :: (IConnection conn) => conn -> String -> IO ()
printSchema db name = noDBerror
genSchema :: (IConnection conn) => conn -> String -> String -> IO Table
genSchema db file name = noDBerror
shred :: (IConnection conn) => conn -> String -> String -> IO ()
shred db file name = noDBerror
shredC :: String -> String -> String -> Q Exp
shredC db file name = noDBerror
createIndex :: (IConnection conn) => conn -> String -> String -> IO ()
createIndex db name tagname = noDBerror