hesql-0.0: HESQL/Verifier.hs

module HESQL.Verifier where

import HESQL.Syntax
import Database.HDBC

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

-- TODO check column names in table.