From 4af028c347f654c76468ab00a704ad88ff407458 Mon Sep 17 00:00:00 2001 From: Romain Poirot Date: Mon, 18 Sep 2023 16:46:53 +0200 Subject: [PATCH] fix(sqlite): respect case option for foreign keys --- src/sources/sqlite/sqlite-schema.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/sources/sqlite/sqlite-schema.lisp b/src/sources/sqlite/sqlite-schema.lisp index 39f39300..b4144e4c 100644 --- a/src/sources/sqlite/sqlite-schema.lisp +++ b/src/sources/sqlite/sqlite-schema.lisp @@ -241,8 +241,8 @@ pg-fkey))))) (if (and fkey from to) (progn - (push-to-end from (fkey-columns fkey)) - (push-to-end to (fkey-foreign-columns fkey))) + (push-to-end (apply-identifier-case from) (fkey-columns fkey)) + (push-to-end (apply-identifier-case to) (fkey-foreign-columns fkey))) ;; it might be INCLUDING/EXCLUDING clauses that make it we ;; don't have to care about the fkey definition, or it