diff --git a/scheme/packages.scm b/scheme/packages.scm index cfc2c14..21a85b4 100644 --- a/scheme/packages.scm +++ b/scheme/packages.scm @@ -360,9 +360,7 @@ (define-interface httpd-handler-lib-interface (export get-socket-host-string - get-numeric-field-value - get-body-length-from-content-length - chunked-transfer-coding?)) + read-message-body)) (define-interface httpd-basic-handlers-interface (export make-predicate-handler @@ -722,9 +720,12 @@ (define-structure httpd-handler-lib httpd-handler-lib-interface (open scheme-with-scsh - format-net + crlf-io ; read-crlf-line + rfc822 ;read-rfc822-headers + format-net ;format-internet-host-address (subset srfi-13 (string-trim-both string-trim string-prefix? string-reverse string-contains string-take)) - sunet-utilities + handle-fatal-error + sunet-utilities ;get-header httpd-requests httpd-responses httpd-errors)