From 7ed82a5f15597ff79e08b53d67f71ba086d15d8d Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Thu, 13 Nov 2014 11:07:14 -0500
Subject: [PATCH] db: even more error information for sqlite3 errors

---
 racket/collects/db/private/sqlite3/connection.rkt | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/racket/collects/db/private/sqlite3/connection.rkt b/racket/collects/db/private/sqlite3/connection.rkt
index 497e0e811b..71437b7618 100644
--- a/racket/collects/db/private/sqlite3/connection.rkt
+++ b/racket/collects/db/private/sqlite3/connection.rkt
@@ -410,9 +410,18 @@
                        [else (caddr info)])])
            (define extra
              (string-append
+              ;; error code
+              (format "\n  error code: ~s" full-s)
               ;; query, if available
               (cond [sql (format "\n  SQL: ~e" sql)]
                     [else ""])
+              ;; query in sqlite3_stmt, if differs
+              (let* ([stmt (and pst (send pst get-handle))]
+                     [stmt_sql (and stmt (sqlite3_sql stmt))])
+                (cond [(equal? sql stmt_sql) ;; ie, either agree or both absent
+                       ""]
+                      [else
+                       (format "\n  sqlite3_sql: ~e" stmt_sql)]))
               ;; db file and mode, if relevant and available
               (cond [(memv s include-db-file-status-list)
                      (string-append
@@ -428,7 +437,7 @@
                                      sym
                                      `((code . ,sym)
                                        (message . ,message)
-                                       (errcode . ,s)
+                                       (errcode . ,full-s)
                                        (sql . ,sql)
                                        (db-file . ,db-file)
                                        (db-mode . ,db-mode)))))]))