[bugfix] host missing from uri

1 files changed, 5 insertions, 4 deletions

diff --git a/lazybones-client.lisp b/lazybones-client.lisp
index ccc6ccf..9f10041 100644
--- a/lazybones-client.lisp
+++ b/lazybones-client.lisp
@@ -101,6 +101,7 @@ for making requests to endpoint EP."
    "?"
    (endpoint-defun-dexador-uri-route-query-format-string ep)
    "\" "
+   "%host "
    (str:join " " (endpoint-defun-route-var-names ep))
    " "
    (str:join " " (endpoint-defun-query-var-names ep))
@@ -111,7 +112,7 @@ for making requests to endpoint EP."
   for making requests to the endpoint EP in the app APP."
   (format
    nil
-   "(dexador:~a~%  ~a~%~{  ~a~%~})"
+   "  (dexador:~a~%   ~a~%~{   ~a~^~%~})"
    (string-downcase (symbol-name (lazybones::endpoint-method ep)))
    (endpoint-defun-dexador-request-uri app ep)
    (append 
@@ -119,13 +120,13 @@ for making requests to endpoint EP."
       (list ":content %body"))
     (list 
      ":cookie-jar %cookies"
-     ":headers (append (when %content-type (list (cons \"Content-Type\" %content-type))) %headers)"))))
+     ":headers (cons (cons \"Content-Type\" %content-type) %headers)"))))
 
 (defun generate-defun-for-endpoint (app ep)
   "Returns a string representation of a defun form for a function that
 makes a request to the endpoint EP."
   (format nil
-          "(defun ~a ~a~%~s~%~a)"
+          "(defun ~a ~a~%  ~s~%~a)"
           (endpoint-defun-name ep)
           (endpoint-defun-lambda-list ep)
           (lazybones::endpoint-documentation ep)
@@ -159,7 +160,7 @@ makes a request to the endpoint EP."
      "
 (defpackage #:~a 
    (:use :cl :lazybones-client.shared) 
-   (:export ~%~{        #:~a~%~}))"
+   (:export ~%~{        #:~a~^~%~}))"
      (app-client-package-name app)
      (all-function-names app))
     (terpri out)