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 QGXEDkSx5F78AwAA0tVLHw (envelope-from ) for ; Sat, 13 Jun 2020 10:58:12 +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 4El7CkSx5F5jAgAAbx9fmQ (envelope-from ) for ; Sat, 13 Jun 2020 10:58:12 +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 C65F0940665 for ; Sat, 13 Jun 2020 10:58:11 +0000 (UTC) Received: from localhost ([::1]:57810 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jk3rW-0001Y1-4o for larch@yhetil.org; Sat, 13 Jun 2020 06:58:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:44370) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jk3rP-0001Xq-Lu for guix-patches@gnu.org; Sat, 13 Jun 2020 06:58:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:57615) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jk3rO-00019n-Bh for guix-patches@gnu.org; Sat, 13 Jun 2020 06:58:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jk3rO-0003Lo-AV for guix-patches@gnu.org; Sat, 13 Jun 2020 06:58:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#41785] [PATCH v3 1/2] image: Make 'find-image' non-monadic. Resent-From: Mathieu Othacehe Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 13 Jun 2020 10:58:02 +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: "Jan \(janneke\) Nieuwenhuizen" Cc: 41785@debbugs.gnu.org, Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 41785-submit@debbugs.gnu.org id=B41785.159204582712801 (code B ref 41785); Sat, 13 Jun 2020 10:58:02 +0000 Received: (at 41785) by debbugs.gnu.org; 13 Jun 2020 10:57:07 +0000 Received: from localhost ([127.0.0.1]:40928 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jk3qV-0003KP-9i for submit@debbugs.gnu.org; Sat, 13 Jun 2020 06:57:07 -0400 Received: from eggs.gnu.org ([209.51.188.92]:36126) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jk3qS-0003Js-VP for 41785@debbugs.gnu.org; Sat, 13 Jun 2020 06:57:05 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:55408) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jk3qK-00015P-DQ; Sat, 13 Jun 2020 06:56:59 -0400 Received: from [2a01:e0a:fa:a50:b56f:8293:ef76:2983] (port=47704 helo=meru) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1jk3qH-00012O-Pj; Sat, 13 Jun 2020 06:56:54 -0400 From: Mathieu Othacehe References: <20200610085441.890-1-janneke@gnu.org> <20200612214214.14112-1-janneke@gnu.org> Date: Sat, 13 Jun 2020 12:56:50 +0200 In-Reply-To: <20200612214214.14112-1-janneke@gnu.org> (Jan Nieuwenhuizen's message of "Fri, 12 Jun 2020 23:42:13 +0200") Message-ID: <87r1ujjkst.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain 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: 9UXZt6bX9/vQ Hey Jan, > (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-system-type > + (%current-target-system))) This should be: --8<---------------cut here---------------start------------->8--- (target (current-target-system)) ... (base-image -> (find-image installation-disk-image-file-system-type target)) --8<---------------cut here---------------end--------------->8--- > + ((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, Mathieu