Permalink
Fetching contributors…
Cannot retrieve contributors at this time
47 lines (34 sloc) 1.38 KB
:set -fprint-evld-with-show
:set stop :list
:set -i..\src -i..\driver-hdbc -i..\driver-hdbc-postgresql
let sl _ = return ":steplocal"
:def sl sl
let s _ = return ":step"
:def s s
let sm _ = return ":stepmodule"
:def sm sm
-- Run one of the query tests in TestCases. Just give
-- the name of the function.
let xqt test = return $ "Test.HUnit.Text.runTestTT (" ++ test ++ " undefined undefined)"
:def xqt xqt
-- Print SQL for a query
let pSQL query = return $ "Database.HaskellDB.PrintQuery.ppSql " ++ query
:def pSQL pSQL
-- Print unoptimized SQL for a query
let pSQLU query = return $ "Database.HaskellDB.PrintQuery.ppSqlUnOpt " ++ query
:def pSQLU pSQLU
-- Print intermediate SqlSelect, after optimization, for a query.
let pSelect query = return $ "Database.HaskellDB.PrintQuery.ppSelect " ++ query
:def pSelect pSelect
-- Print intermediate SqlSelect, unoptimized, for a query.
let pSelectU query = return $ "Database.HaskellDB.PrintQuery.ppSelectUnOpt " ++ query
:def pSelectU pSelectU
-- Print the PrimQuery data structure for a query, after optimization.
let pQuery query = return $ "Database.HaskellDB.PrintQuery.ppQuery " ++ query
:def pQuery pQuery
-- Print the PrimQuery data structure for a query, no optimization.
let pQueryU query = return $ "Database.HaskellDB.PrintQuery.ppQueryUnOpt " ++ query
:def pQueryU pQueryU
:add Database.HaskellDB.PrintQuery
:add *TestCases
:m *TestCases