From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Enge Subject: Re: Trivial build system Date: Sun, 11 Jan 2015 17:44:46 +0100 Message-ID: <20150111164446.GA25680@debian> References: <20150111151247.GA23839@debian> <87wq4tjpsf.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36210) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YALdJ-0003LU-5X for guix-devel@gnu.org; Sun, 11 Jan 2015 11:44:57 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YALdE-0007Bx-UI for guix-devel@gnu.org; Sun, 11 Jan 2015 11:44:57 -0500 Received: from mout.kundenserver.de ([212.227.17.13]:53139) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YALdE-0007BB-KR for guix-devel@gnu.org; Sun, 11 Jan 2015 11:44:52 -0500 Content-Disposition: inline In-Reply-To: <87wq4tjpsf.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: David Thompson Cc: guix-devel@gnu.org 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