From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marius Bakke Subject: bug#33078: Attempt to build my GuixSD system now fails Date: Wed, 17 Oct 2018 23:49:46 +0200 Message-ID: <87tvlkfdl1.fsf@fastmail.com> References: <87d0s8nyvi.fsf@netris.org> <87woqgfgb8.fsf@fastmail.com> Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55562) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gCthd-0003uN-5h for bug-guix@gnu.org; Wed, 17 Oct 2018 17:50:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gCtha-0007c7-0i for bug-guix@gnu.org; Wed, 17 Oct 2018 17:50:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:51645) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gCthZ-0007bv-RH for bug-guix@gnu.org; Wed, 17 Oct 2018 17:50:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gCthZ-0000bF-M9 for bug-guix@gnu.org; Wed, 17 Oct 2018 17:50:01 -0400 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <87woqgfgb8.fsf@fastmail.com> List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: Mark H Weaver , 33078@debbugs.gnu.org --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Marius Bakke writes: > Mark H Weaver writes: > >> (services (cons* (console-keymap-service keymap) >> ;;(xfce-desktop-service) >> (gnome-desktop-service) >> (service network-manager-service-type >> (network-manager-configuration)) >> (service wpa-supplicant-service-type wpa-supplicant) > > To adapt to the new interface, this should be changed to: > > (service wpa-supplicant-service-type) > > ...though it would be good to have backwards compatibility here. WDYT > of this approach? [...] =20=20 > (define wpa-supplicant-service-type > - (let ((config->package > - (match-lambda > - (($ wpa-supplicant) > - (list wpa-supplicant))))) > - (service-type (name 'wpa-supplicant) > - (extensions > - (list (service-extension shepherd-root-service-type > - wpa-supplicant-shepherd-serv= ice) > - (service-extension dbus-root-service-type confi= g->package) > - (service-extension profile-service-type config-= >package))) > - (description "Run the WPA Supplicant daemon, a service= that > + (lambda* (#:optional wpa-supplicant-package) ;deprecated > + (let ((package > + (if wpa-supplicant-package > + wpa-supplicant-package > + (match-lambda > + (($ wpa-supplicant) > + (list wpa-supplicant)))))) Derp, this obviously won't work. I've tried various incarnations to match a package object in the match-lambda with little success. Suggestions? --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCgAdFiEEu7At3yzq9qgNHeZDoqBt8qM6VPoFAlvHrnoACgkQoqBt8qM6 VPqd9AgArHP4lTzeXcokXcR83FTPiFxlcQdZaEfa6pORmLYpqmJ/AcbGb1q1iyn1 /lVL7+BmMx3McRzC5vrmHDf10d4HP+GOI0CF8ugtrwlLrrR1S5pKb29QdRHNO2Nh 1RWiNy4Cpf5ALuiG9J5OwHhGSxyMx6ksEIwxIPUDiHTlSJU5KowLWjVIKqy8Vtyq hsWctBtZe/4WrDwabzAYf8mAk7X/UviN3/Ch9k5uw642CJMkhVpMJAu4Vn3aRNLU vHHe8Qv7ohCNm9kYkOciZUDfXy52Nuzj6wgqBvw1o1ydMTvixp2KZfdOP7FKwr2s 5YF7D3uN8rREV31lAfd7Tnw4sKqv7Q== =TBMx -----END PGP SIGNATURE----- --=-=-=--