diff options
| author | Ebus-at-dockstar <ebus@dockstar> | 2015-05-10 00:31:25 +0200 |
|---|---|---|
| committer | Ebus-at-dockstar <ebus@dockstar> | 2015-05-10 00:31:25 +0200 |
| commit | a925e9b9438f2d6b9c00ab84c3c1a4089fef2d28 (patch) | |
| tree | dc780286b19243cfa00692d5ebae2f9f5d420675 | |
| parent | d123678766b26b553c72a4c6e8d255afdd90ebe8 (diff) | |
| download | ebus-alt-a925e9b9438f2d6b9c00ab84c3c1a4089fef2d28.tar.gz ebus-alt-a925e9b9438f2d6b9c00ab84c3c1a4089fef2d28.zip | |
close inputport
| -rwxr-xr-x | ebus-racket/inserter.rkt | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ebus-racket/inserter.rkt b/ebus-racket/inserter.rkt index c4a693b..c068e1c 100755 --- a/ebus-racket/inserter.rkt +++ b/ebus-racket/inserter.rkt @@ -47,6 +47,7 @@ (log-inserter-info (format "influxdb: ~a~n" (jsexpr->string data))) (define input-port (post-impure-port (string->url (influxurl?)) (string->bytes/utf-8 (jsexpr->string data)))) (define server-response (read-line input-port)) + (close-input-port input-port) (log-inserter-info "Response: ~a" server-response)))) (define (handle-packet packet) |