From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id 2BOBJEHP5F6FRgAA0tVLHw (envelope-from ) for ; Sat, 13 Jun 2020 13:06:09 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id QHMsIEHP5F6DXAAAbx9fmQ (envelope-from ) for ; Sat, 13 Jun 2020 13:06:09 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id C0D9E9403E9 for ; Sat, 13 Jun 2020 13:06:08 +0000 (UTC) Received: from localhost ([::1]:42076 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jk5rJ-0006T7-Rj for larch@yhetil.org; Sat, 13 Jun 2020 09:06:05 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:46834) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jk5rG-0006Qt-9v for guix-patches@gnu.org; Sat, 13 Jun 2020 09:06:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:57747) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jk5rG-0004zM-0k for guix-patches@gnu.org; Sat, 13 Jun 2020 09:06:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jk5rF-0000Qb-SL for guix-patches@gnu.org; Sat, 13 Jun 2020 09:06:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#41785] [PATCH v3 1/2] image: Make 'find-image' non-monadic. Resent-From: Jan Nieuwenhuizen Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 13 Jun 2020 13:06:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 41785 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: Mathieu Othacehe Cc: 41785@debbugs.gnu.org, Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 41785-submit@debbugs.gnu.org id=B41785.15920535341607 (code B ref 41785); Sat, 13 Jun 2020 13:06:01 +0000 Received: (at 41785) by debbugs.gnu.org; 13 Jun 2020 13:05:34 +0000 Received: from localhost ([127.0.0.1]:41060 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jk5qn-0000Pr-Sy for submit@debbugs.gnu.org; Sat, 13 Jun 2020 09:05:34 -0400 Received: from eggs.gnu.org ([209.51.188.92]:38448) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jk5qn-0000Pg-7L for 41785@debbugs.gnu.org; Sat, 13 Jun 2020 09:05:33 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56563) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jk5qg-0004pt-Nv; Sat, 13 Jun 2020 09:05:26 -0400 Received: from [2001:980:1b4f:1:42d2:832d:bb59:862] (port=34702 helo=dundal.peder.onsbrabantnet.nl) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1jk5qT-0006Zj-7b; Sat, 13 Jun 2020 09:05:26 -0400 From: Jan Nieuwenhuizen Organization: AvatarAcademy.nl References: <20200610085441.890-1-janneke@gnu.org> <20200612214214.14112-1-janneke@gnu.org> <87r1ujjkst.fsf@gnu.org> X-Url: http://AvatarAcademy.nl Date: Sat, 13 Jun 2020 15:05:11 +0200 In-Reply-To: <87r1ujjkst.fsf@gnu.org> (Mathieu Othacehe's message of "Sat, 13 Jun 2020 12:56:50 +0200") Message-ID: <878sgrazg8.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Spam-Score: -3.3 (---) X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=none; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Spam-Score: -1.01 X-TUID: IIwAps7klJsF Mathieu Othacehe writes: Hey Mathieu, >> (system (current-system)) >> (target (operating-system-derivation target-os)) >> - (base-image (find-image >> - installation-disk-image-file-system= -type)) >> + (base-image -> (find-image >> + installation-disk-image-file-sys= tem-type >> + (%current-target-system))) > > This should be: > > (target (current-target-system)) > ... > (base-image -> (find-image > installation-disk-image-file-system-type > target)) Ah, right. Done and moved this >> (target (operating-system-derivation target-os)) down. >> + ((image -> (find-image file-system-type (%current-target-system)= )) >> (sys (system-derivation-for-action os image action >> #:file-system-type file= -system-type >> #:image-size image-size > > Same here, otherwise this look good to me. Thanks! Pushed to master as 7ca533c7237622d70b423033c4506217d9ce4014 (probably/hopefully soon to be revisited by your image-catalog feature :-) Greetings, Janneke --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.com