diff options
| -rw-r--r-- | gn/db/mysql.scm | 1 | ||||
| -rw-r--r-- | web/webserver.scm | 7 |
2 files changed, 5 insertions, 3 deletions
diff --git a/gn/db/mysql.scm b/gn/db/mysql.scm index ccd414a..0d7cd40 100644 --- a/gn/db/mysql.scm +++ b/gn/db/mysql.scm @@ -45,6 +45,7 @@ ((stat . msg) (if (= stat 0) #t (begin + (display "SQL Connection ERROR! ") (display msg) (newline) (assert stat)))))) diff --git a/web/webserver.scm b/web/webserver.scm index dae235a..e0b0ea6 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -17,7 +17,7 @@ (web request) (web response) (web uri) - (fibers web server) + (web server) (gn cache memoize) (web gn-uri) (gn db sparql) @@ -348,8 +348,9 @@ otherwise search for set/group data" ;; only way to update the handler reference held by the web server ;; would be to restart the web server. (run-server (cut handler <> <>) - #:addr (inet-pton AF_INET address) - #:port port)) + 'http + (list #:addr (inet-pton AF_INET address) + #:port port))) (define (main args) (write (string-append "Starting Guile REST API " get-version " server!")) |