Re: Trivial build system

[Andreas Enge]

On Sun, Jan 11, 2015 at 10:33:04AM -0500, David Thompson wrote:
> Rather than deleting the other known phases, how about just selecting
> the 2 phases you are interested in?
>   (map (cut assq <> %standard-phases)
>        '(unpack patch-source-shebangs))

Thanks a lot, that did the trick (together with adding the 'set-paths phase),
and I learnt a bit of scheme at the same time! For the record, the final code
snippet looks like this:
   (arguments
    `(#:modules ((guix build gnu-build-system)
                 (guix build utils)
                 (srfi srfi-26))
      #:imported-modules ((guix build gnu-build-system)
                          (guix build utils))
      #:phases
        (alist-cons-after
         'patch-source-shebangs 'install
         (lambda* (#:key outputs #:allow-other-keys)
           (let ((out (assoc-ref outputs "out")))
             (mkdir-p out)
             (zero? (system* "mv" "tlpkg" out))))
         (map (cut assq <> %standard-phases)
              '(set-paths unpack patch-source-shebangs)))))

Andreas