diff options
| author | Munyoki Kilyungi | 2025-07-22 01:47:10 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2025-07-22 01:47:10 +0300 |
| commit | a2639cac7be578f160c14a4eeb77a23b859bb64a (patch) | |
| tree | 3b04e7be87becb28df20ec6de62de012a975f1c2 | |
| parent | 2e2927d599fad71e3cd05f17ad2694f167d884b0 (diff) | |
| download | gn-guile-a2639cac7be578f160c14a4eeb77a23b859bb64a.tar.gz | |
Test webhook.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -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) |