>>>>> "EZY" == Edward Z Yang <[email protected]> writes:
EZY> Where did 'query' come from? Edward
I left that out because it was just a prebuilt db query. It came from
something like:
dataNames :: Data a => a -> [String]
dataNames = constrFields . toConstr
loanNames = datanames (loan :: Loan)
{- yielding:
["loan_address","loan_initialAmount","loan_interestRate","loan_term","loan_originated","loan_minimumPayment","loan_usualPayment","loan_familiarName","loan_password","loan_lastVisit","loan_nextToLastVisit","loan_emailAddress"]
-}
let query = "INSERT INTO loans (" ++ loanNames ++ ") values (" ++
(intercalate ", " (replicate (length loanNames) "?")) ++
")"
Best wishes,
H
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
