Make bigoli work

src/clj/auto_ap/parse.clj

@@ -64,12 +64,13 @@
 (defmulti parse-file (fn [_ filename]  (.toLowerCase (last (str/split filename #"\." )))))
 
 (defn invoke-glimpse2 [f]
-  (-> (lambda/invoke {:function-name "glimpse2" :payload
-                      (json/write-str
-                       (alog/peek ::x {"url" (str "https://" "data.prod.app.integreatconsult.com" "/" f ) }))})
-      :payload
-      slurp
-      json/read-str))
+  (let [result (slurp (:payload (lambda/invoke {:function-name "glimpse2" :payload
+                                                (json/write-str
+                                                 (alog/peek ::x {"url" (str "https://" "data.prod.app.integreatconsult.com" "/" f ) }))})))]
+
+    (alog/info ::glimpse2-payload :payload result)
+    (-> result
+     json/read-str)))
 
 (defn glimpse2 [file]
   (try