From 1a4ce4fb460ec6950d53210bb1ec08d4b07d1842 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Mon, 15 Apr 2019 23:05:28 +0200
Subject: [PATCH] Re-indent block before editing.

It turns out that current Emacs settings aren't agreeing with the file
indenting, let's clean that up before modifying the file, so that later
reviews are easier.
---
 src/sources/mysql/mysql.lisp | 60 ++++++++++++++++++------------------
 1 file changed, 30 insertions(+), 30 deletions(-)

diff --git a/src/sources/mysql/mysql.lisp b/src/sources/mysql/mysql.lisp
index 7cc9555..135a5fe 100644
--- a/src/sources/mysql/mysql.lisp
+++ b/src/sources/mysql/mysql.lisp
@@ -180,44 +180,44 @@ Illegal ~a character starting at position ~a~@[: ~a~].~%"
                             :use-result-as-rows t
                             :use-result-as-read t
                             :section :pre)
-        (with-connection (*connection* (source-db mysql))
-          ;; If asked to MATERIALIZE VIEWS, now is the time to create them in
-          ;; MySQL, when given definitions rather than existing view names.
-          (when (and materialize-views (not (eq :all materialize-views)))
-            (create-my-views materialize-views))
+      (with-connection (*connection* (source-db mysql))
+        ;; If asked to MATERIALIZE VIEWS, now is the time to create them in
+        ;; MySQL, when given definitions rather than existing view names.
+        (when (and materialize-views (not (eq :all materialize-views)))
+          (create-my-views materialize-views))
 
-          ;; fetch table and columns metadata, covering table and column comments
-          (list-all-columns schema
-                            :only-tables only-tables
-                            :including including
-                            :excluding excluding)
+        ;; fetch table and columns metadata, covering table and column comments
+        (list-all-columns schema
+                          :only-tables only-tables
+                          :including including
+                          :excluding excluding)
 
-          ;; fetch view (and their columns) metadata, covering comments too
-          (cond (view-names (list-all-columns schema
-                                              :only-tables view-names
-                                              :table-type :view))
+        ;; fetch view (and their columns) metadata, covering comments too
+        (cond (view-names (list-all-columns schema
+                                            :only-tables view-names
+                                            :table-type :view))
 
-                ((eq :all materialize-views)
-                 (list-all-columns schema :table-type :view)))
+              ((eq :all materialize-views)
+               (list-all-columns schema :table-type :view)))
 
-          (when foreign-keys
-            (list-all-fkeys schema
+        (when foreign-keys
+          (list-all-fkeys schema
+                          :only-tables only-tables
+                          :including including
+                          :excluding excluding))
+
+        (when create-indexes
+          (list-all-indexes schema
                             :only-tables only-tables
                             :including including
                             :excluding excluding))
 
-          (when create-indexes
-            (list-all-indexes schema
-                              :only-tables only-tables
-                              :including including
-                              :excluding excluding))
-
-          ;; return how many objects we're going to deal with in total
-          ;; for stats collection
-          (+ (count-tables catalog)
-             (count-views catalog)
-             (count-indexes catalog)
-             (count-fkeys catalog))))
+        ;; return how many objects we're going to deal with in total
+        ;; for stats collection
+        (+ (count-tables catalog)
+           (count-views catalog)
+           (count-indexes catalog)
+           (count-fkeys catalog))))
 
     catalog))