diff options
| -rw-r--r-- | web/gn-uri.scm | 3 | ||||
| -rw-r--r-- | web/webserver.scm | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/web/gn-uri.scm b/web/gn-uri.scm index 3455d51..d3cfb90 100644 --- a/web/gn-uri.scm +++ b/web/gn-uri.scm @@ -32,6 +32,9 @@ (define get-version "4.0.0") +(define get-status + "random status") + (define base-url "http://localhost:8091") diff --git a/web/webserver.scm b/web/webserver.scm index 880ab49..92e6977 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -227,6 +227,8 @@ otherwise search for set/group data" (render-json +info+)) (('GET "version") (render-json get-version)) + (('GET "status") + (render-json get-status)) (('GET "css" fn) (render-static-file (string-append (dirname (current-filename)) "/css/" fn))) (('GET "map" fn) |