[nongnu] elpa/emacsql ce25410db4 03/11: Update cl-flet indentation

[ELPA Syncer]

branch: elpa/emacsql
commit ce25410db467e03d6095dcf11d3743abf640b841
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Update cl-flet indentation
---
 emacsql-compiler.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 4fef1329b6..8615c0a1b3 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -236,7 +236,7 @@ string, which will be combined with variable definitions."
                 (svector (thing) (combine (emacsql--*vector thing)))
                 (expr (thing) (combine (emacsql--*expr thing)))
                 (subsql (thing)
-                        (format "(%s)" (combine (emacsql-prepare thing)))))
+                  (format "(%s)" (combine (emacsql-prepare thing)))))
        (cons (concat ,prefix (progn ,@body)) emacsql--vars))))
 
 (defun emacsql--!param (thing &optional kind)
@@ -244,9 +244,9 @@ string, which will be combined with variable definitions."
 If optional KIND is not specified, then try to guess it.
 Only use within `emacsql-with-params'!"
   (cl-flet ((check (param)
-                   (when (and kind (not (eq kind (cdr param))))
-                     (emacsql-error
-                      "Invalid parameter type %s, expecting %s" thing kind))))
+              (when (and kind (not (eq kind (cdr param))))
+                (emacsql-error
+                 "Invalid parameter type %s, expecting %s" thing kind))))
     (let ((param (emacsql-param thing)))
       (if (null param)
           (emacsql-escape-format
@@ -397,10 +397,11 @@ string returned is wrapped with parentheses."
             (emacsql--get-op-info op
                                   (length args)
                                   (or parent-precedence-value 0))
-          (cl-flet ((recur (n) (combine (emacsql--*expr (nth n args)
-                                                        (or precedence-value 
0))))
+          (cl-flet ((recur (n)
+                      (combine (emacsql--*expr (nth n args)
+                                               (or precedence-value 0))))
                     (nops (op)
-                          (emacsql-error "Wrong number of operands for %s" 
op)))
+                      (emacsql-error "Wrong number of operands for %s" op)))
             (cl-case op
               ;; Special cases <= >=
               ((<= >=)