http-fstree downloads a json file and converts to service outputs

pkgs/http-fstree/http-fstree.fnl

@@ -0,0 +1,19 @@
+(local json (require :json))
+(local http (require :fetch))
+(local svc (require :anoia.svc))
+(local { : utime } (require :lualinux))
+
+(fn download [url dest]
+  (match (http.fetch url)
+    (nil code str)
+    (assert nil (.. "error " code ": " str))
+
+    (body { : last-modified })
+    (let [service (svc.open dest)]
+      (service:output "." (json.decode body))
+      (utime dest last-modified))))
+
+(fn run [] (download (. arg 1) (. arg 2)))
+
+
+{ : run }