From d70d5b3b2bebf53e45a3a2db82578532b72c5a66 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 4 Dec 2021 14:30:05 +0530
Subject: Fix indentation.

* dump.scm (get-tables-from-comments, dump-table-fields): Fix
indentation.
---
 dump.scm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/dump.scm b/dump.scm
index 7b86b8f..2dc461b 100755
--- a/dump.scm
+++ b/dump.scm
@@ -41,9 +41,9 @@
 
 (define (get-tables-from-comments db)
   (sql-map (match-lambda
-                  ((("TableName" . table)) table))
-                db
-                "SELECT TableName FROM TableComments"))
+             ((("TableName" . table)) table))
+           db
+           "SELECT TableName FROM TableComments"))
 
 (define (dump-table-fields db table)
   (format #t "* ~a~%" table)
@@ -52,16 +52,16 @@
     ((("Comment" . comment))
      (format #t "~a~%" comment)))
   (sql-for-each (lambda (row)
-                       (match row
-                         ((("TableField" . table-field)
-                           ("Foreign_Key" . foreign-key)
-                           ("Annotation" . annotation))
-                          (format #t "** ~a~%" (substring table-field (1+ (string-length table))))
-                          (unless (string-null? foreign-key)
-                            (format #t "Foreign key to ~a~%" foreign-key))
-                          (unless (string-null? annotation)
-                            (display annotation)
-                            (newline)))))
+                  (match row
+                    ((("TableField" . table-field)
+                      ("Foreign_Key" . foreign-key)
+                      ("Annotation" . annotation))
+                     (format #t "** ~a~%" (substring table-field (1+ (string-length table))))
+                     (unless (string-null? foreign-key)
+                       (format #t "Foreign key to ~a~%" foreign-key))
+                     (unless (string-null? annotation)
+                       (display annotation)
+                       (newline)))))
                      db
                      (format #f "SELECT TableField, Foreign_Key, Annotation FROM TableFieldAnnotation WHERE TableField LIKE '~a.%'"
                              table))
-- 
cgit v1.2.3