diff options
Diffstat (limited to 'guix/forge/tissue.scm')
| -rw-r--r-- | guix/forge/tissue.scm | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/guix/forge/tissue.scm b/guix/forge/tissue.scm index 1608728..abf3e39 100644 --- a/guix/forge/tissue.scm +++ b/guix/forge/tissue.scm @@ -248,22 +248,6 @@ #:log-file "/var/log/tissue.log"))) (stop #~(make-kill-destructor))))) -(define (socket->proxy-pass socket) - "Serialize @var{socket}, a forge socket, to an nginx @code{proxy_pass} -directive." - (string-append - "proxy_pass " - (match socket - (($ <forge-host-socket> hostname port) - (string-append "http://" hostname ":" (number->string port))) - (($ <forge-ip-socket> (? ipv4-address? ip) port) - (string-append "http://" ip ":" (number->string port))) - (($ <forge-ip-socket> (? ipv6-address? ip) port) - (string-append "http://[" ip "]:" (number->string port))) - (($ <forge-unix-socket> path) - (string-append "http://unix:" path ":"))) - ";")) - (define (tissue-nginx-server-blocks config) "Return list of @code{<nginx-server-configuration>} extensions for tissue configuration @var{config}." @@ -286,7 +270,7 @@ tissue configuration @var{config}." (locations (cons (nginx-location-configuration (uri "@tissue-search") - (body (list (socket->proxy-pass socket) + (body (list (socket->nginx-proxy-pass socket) "proxy_set_header Host $host;"))) (append (map (cut project->location state-directory <>) projects) |