Custom 'install phase

[Raghav Gururajan]

Hello Guix!

I am trying to re-write the custom 'install phase of this (https://paste.debian.net/1188301/) package definition,as follows:

```
           (replace 'install
             (lambda _
               (for-each (lambda (solution)
                           (with-directory-excursion solution

                                       #:install-plan

                                          #:include-regexp ("\\.h$"))))))
                         (list
                          "qtlockedfile"
                          "qtpropertybrowser"
                          "qtservice"
                          "qtsingleapplication"
                          "qtsoap"))
               #t))
```

I get an error In procedure apply: Apply to non-list: "src".

Can anyone help me with the correct snippet please?

Regards,
RG.

(apply (assoc-ref copy:%standard-phases 'install) '(("src" (string-append "include/" solution)

OpenPGP_signature
Description: OpenPGP digital signature