kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

KSR restart

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-01-23 04:21:10 +00:00
parent e32d444d05
commit 6ab51033a0
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
projects/ksr-express/src/ksr_express/Engine.kiss
View File

@@ -6,7 +6,8 @@
(defNew [] (defNew []
[&mut :String image "" [&mut :String image ""
&mut :Continuation cc null &mut :Continuation cc null
&mut :String->Void resolve null] &mut :String->Void resolve null
&mut :Dynamic connection null]
(let [app (Express.call) (let [app (Express.call)
port 3000] port 3000]
(app.use (Express.static_.call (Sys.getCwd))) (app.use (Express.static_.call (Sys.getCwd)))
@@ -22,8 +23,13 @@
(whenLet [_resolve resolve] (set resolve null) (_resolve req.query.value)) (whenLet [_resolve resolve] (set resolve null) (_resolve req.query.value))
(res.redirect "/") (res.redirect "/")
}) })
(app.get "/restart" ->[req :Dynamic res next] {
(res.redirect "/")
(connection.close)
(kiss_spaced_rep.Main_.main)
})
(#unless test (#unless test
(app.listen port ->(print "kiss-express listening at http://localhost:$port"))))) (set connection (app.listen port ->(print "kiss-express listening at http://localhost:$port"))))))
(method :Void clear [] (method :Void clear []
(set content "")) (set content ""))