Simple feedback server

feedback-server/src/feedback_server/Main.hx

@@ -0,0 +1,7 @@
+package feedback_server;
+
+class Main {
+    static function main() {
+        Main_.main();
+    }
+}

feedback-server/src/feedback_server/Main_.kiss

@@ -0,0 +1,21 @@
+(import sys.FileSystem)
+(import sys.io.File)
+
+(let [app (Express.call)
+        port 3001]
+
+    (unless (FileSystem.exists "feedback")
+        (FileSystem.createDirectory "feedback"))
+
+    (app.use (Express.text))
+
+    (app.post "/" ->[req res next] {
+        (print req.body)
+        (File.saveContent "feedback/$(.toString (Date.now)).txt" req.body)
+
+        (res.send "received")
+    })
+    
+    (#unless test
+        (app.listen port ->(print "kiss-express listening at http://localhost:$port"))))
+