1 (use-modules (ice-9 match)
8 (define (led-command-handler request body)
9 (match (split-and-decode-uri-path (uri-path (request-uri request)))
11 (set-led-color/primitive! (string->number r)
15 (values '((content-type . (text/plain)))
17 (_ (values '((content-type . (text/plain))) "luser\n"))))
19 (run-server led-command-handler)