hesql-0.5: HESQL/Verifier.hs

module HESQL.Verifier where

import HESQL.Syntax
import Database.HDBC

import Database.HsSqlPpp.PrettyPrinter.PrettyPrinter

verifySql conn sql = 
    handleSqlError $  do
         putStrLn $ "check " ++ sqlStr 
         prepare conn sqlStr >>= finish
      where sqlStr = printSql [sql]

-- TODO check column names in table.