Commit e02a4bae authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent 66488e0a
...@@ -3,8 +3,8 @@ implementation module Gerda ...@@ -3,8 +3,8 @@ implementation module Gerda
import StdMaybe, StdGeneric import StdMaybe, StdGeneric
import StdEnv, odbc, odbccp, StdDebug import StdEnv, odbc, odbccp, StdDebug
//TRACE_SQL statement :== statement TRACE_SQL statement :== statement
TRACE_SQL statement :== trace_n ("<<<" +++ statement +++ ">>>") statement //TRACE_SQL statement :== trace_n ("<<<" +++ statement +++ ">>>") statement
:: Gerda = { :: Gerda = {
index :: !Int, index :: !Int,
...@@ -494,7 +494,7 @@ removeTable tableName g=:{layout, connection, state} ...@@ -494,7 +494,7 @@ removeTable tableName g=:{layout, connection, state}
// | r <> SQL_SUCCESS = abort ("SQLExecDirect failed " +++ drop) // | r <> SQL_SUCCESS = abort ("SQLExecDirect failed " +++ drop)
# (r, state) = SQLFreeHandle SQL_HANDLE_STMT h state # (r, state) = SQLFreeHandle SQL_HANDLE_STMT h state
| r <> SQL_SUCCESS = abort "SQLFreeHandle SQL_HANDLE_STMT failed" | r <> SQL_SUCCESS = abort "SQLFreeHandle SQL_HANDLE_STMT failed"
# (m, layout) = extractTable tableName layout # (m, layout) = extractTable ("*" +++ tableName) layout
g = {g & layout = layout, state = state} g = {g & layout = layout, state = state}
= case m of = case m of
Just table -> closeTable table g Just table -> closeTable table g
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment