Re: [PATCH] improve nginx-service

[Ludovic Courtès]

Hartmut Goebel <address@hidden> skribis:

> Am 03.11.2016 um 15:54 schrieb Ludovic Courtès:
>> Assuming ‘demo-website’ is bound to a package object, you should be able
>> to do:
>>
>>   (root (file-append demo-website "/"))
>>
>> or simply:
>>
>>   (root demo-website)
>
> Hmm, this does not work for me:
>
>
> ice-9/boot-9.scm:702:27: In procedure map:
> ice-9/boot-9.scm:702:27: In procedure string-append: Wrong type
> (expecting string): #<package address@hidden
> ./taler/packages/demo.scm:100 3e2a600>
>
>
> I tried with current master branch.

Doh!  Indeed, ‘default-nginx-vhost-config’ must be rewritten to do
something like:

  #~(string-append #$foo #$bar …)

instead of:

  (string-append foo bar …)

More precisely, it could ‘string-append’ all the string literals yet use
a #~(string-append …) gexp for ‘root’.

Julien?  :-)

Ludo’.