visionect: handle non-post-data in visionect-post.

2020-04-21 21:18:42 -07:00 · 2020-04-21 21:18:42 -07:00 · 2f8e96a6b6
parent eef4e17727
commit 2f8e96a6b6
1 changed files with 2 additions and 1 deletions
--- a/extra/visionect/visionect.factor
+++ b/extra/visionect/visionect.factor
@ -49,7 +49,8 @@ SYMBOL: visionect-api-secret

 : visionect-post ( post-data path -- data )
    visionect-url <post-request>
-    dup post-data>> content-type>> "content-type" set-header
+    dup post-data>> dup post-data?
+    [ content-type>> "content-type" set-header ] [ drop ] if
    visionect-request ;

 PRIVATE>