Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix bun in #'genurl-with-host

  • Loading branch information...
commit 11526ac778d7a146855df0e292115b97baba899a 1 parent a0d4c6d
@archimag authored
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/route.lisp
View
5 src/route.lisp
@@ -134,7 +134,10 @@
(defun genurl-with-host (route &rest args)
- (let ((uri (apply #'restas:genurl route args)))
+ (let ((uri (genurl/impl (concatenate 'list
+ (submodule-full-baseurl (slot-value *route* 'submodule))
+ (route-symbol-template route))
+ args)))
(setf (puri:uri-scheme uri)
:http)
(setf (puri:uri-host uri)
Please sign in to comment.
Something went wrong with that request. Please try again.