Browse Source

Fix static analysis failures

Bob Mottram 7 years ago
parent
commit
0bac095afe
1 changed files with 14 additions and 14 deletions
  1. 14
    14
      src/freedombone-app-turtl

+ 14
- 14
src/freedombone-app-turtl View File

@@ -635,20 +635,20 @@ __ENDCONFIG__
635 635
     fi
636 636
 
637 637
     # config
638
-    echo '(defvar *enabled-cors-resources* "resource://turtl-at-lyonbros-dot-com"' > $TURTL_BASE_DIR/api/config/config.footer
639
-    echo '  "When set, will enable CORS for resource:// origins if they match the given' >> $TURTL_BASE_DIR/api/config/config.footer
640
-    echo '   string. Entries should be comma separated (this string is passed verbatim in' >> $TURTL_BASE_DIR/api/config/config.footer
641
-    echo '   the Access-Control-Allow-Origin header).")' >> $TURTL_BASE_DIR/api/config/config.footer
642
-    echo '(defparameter *public-actions*' >> $TURTL_BASE_DIR/api/config/config.footer
643
-    echo "  \`((:post . ,(concatenate 'string *api-path* \"/users\"))" >> $TURTL_BASE_DIR/api/config/config.footer
644
-    echo "    (:post . ,(concatenate 'string *api-path* \"/log/error\"))" >> $TURTL_BASE_DIR/api/config/config.footer
645
-    echo '    (:post . "/cla/sign")' >> $TURTL_BASE_DIR/api/config/config.footer
646
-    echo '    (:get  . "/ping")' >> $TURTL_BASE_DIR/api/config/config.footer
647
-    echo '    (:get  . "/admin")' >> $TURTL_BASE_DIR/api/config/config.footer
648
-    echo "    (:get . ,(cl-ppcre:create-scanner (concatenate 'string *api-path* \"/invites/codes/([0-9a-f-]+)\"))))" >> $TURTL_BASE_DIR/api/config/config.footer
649
-    echo "  \"A list of public resources/actions that do not require authentication.\")" >> $TURTL_BASE_DIR/api/config/config.footer
650
-    echo "(defvar *analytics* '(:enabled t" >> $TURTL_BASE_DIR/api/config/config.footer
651
-    echo '                      :db "analytics"))' >> $TURTL_BASE_DIR/api/config/config.footer
638
+    { echo '(defvar *enabled-cors-resources* "resource://turtl-at-lyonbros-dot-com"';
639
+      echo '  "When set, will enable CORS for resource:// origins if they match the given';
640
+      echo '   string. Entries should be comma separated (this string is passed verbatim in';
641
+      echo '   the Access-Control-Allow-Origin header).")';
642
+      echo '(defparameter *public-actions*';
643
+      echo "  \`((:post . ,(concatenate 'string *api-path* \"/users\"))";
644
+      echo "    (:post . ,(concatenate 'string *api-path* \"/log/error\"))";
645
+      echo '    (:post . "/cla/sign")';
646
+      echo '    (:get  . "/ping")';
647
+      echo '    (:get  . "/admin")';
648
+      echo "    (:get . ,(cl-ppcre:create-scanner (concatenate 'string *api-path* \"/invites/codes/([0-9a-f-]+)\"))))";
649
+      echo "  \"A list of public resources/actions that do not require authentication.\")";
650
+      echo "(defvar *analytics* '(:enabled t";
651
+      echo '                      :db "analytics"))'; } > "$TURTL_BASE_DIR/api/config/config.footer"
652 652
 
653 653
     cp $TURTL_BASE_DIR/asdf.lisp $TURTL_BASE_DIR/api
654 654
     echo '(load (compile-file "asdf.lisp"))' > $TURTL_BASE_DIR/api/launch.lisp