diff options
| author | Arun Isaac | 2021-12-04 14:30:05 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-12-04 14:32:14 +0530 |
| commit | d70d5b3b2bebf53e45a3a2db82578532b72c5a66 (patch) | |
| tree | 92f960768fbe6926385fd9bfe76618b6bb70160b | |
| parent | b53d4c2e14f94f442c80c2cd1a12227d78719d06 (diff) | |
| download | gn-transform-databases-d70d5b3b2bebf53e45a3a2db82578532b72c5a66.tar.gz | |
Fix indentation.
* dump.scm (get-tables-from-comments, dump-table-fields): Fix
indentation.
| -rwxr-xr-x | dump.scm | 26 |
1 files changed, 13 insertions, 13 deletions
@@ -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)) |