gnu: ghc-alex: Use G-expressions.

* gnu/packages/containers.scm (ghc-alex)[arguments]: Use G-expressions.
[arguments]: Remove trailing booleans.

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
jgart 2022-09-09 14:41:16 -05:00 committed by Christopher Baines
parent fc4da86ed6
commit 0a982a19bf
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577

View file

@ -30,6 +30,7 @@
;;; Copyright © 2020 Christine Lemmer-Webber <cwebber@dustycloud.org> ;;; Copyright © 2020 Christine Lemmer-Webber <cwebber@dustycloud.org>
;;; Copyright © 2021, 2022 Alice BRENON <alice.brenon@ens-lyon.fr> ;;; Copyright © 2021, 2022 Alice BRENON <alice.brenon@ens-lyon.fr>
;;; Copyright © 2021 John Kehayias <john.kehayias@protonmail.com> ;;; Copyright © 2021 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -75,6 +76,7 @@ (define-module (gnu packages haskell-xyz)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (guix build-system haskell) #:use-module (guix build-system haskell)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
@ -297,14 +299,13 @@ (define-public ghc-alex
"042lrkn0dbpjn5ivj6j26jzb1fwrj8c1aj18ykxja89isg0hiali")))) "042lrkn0dbpjn5ivj6j26jzb1fwrj8c1aj18ykxja89isg0hiali"))))
(build-system haskell-build-system) (build-system haskell-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'set-check-variables (add-before 'check 'set-check-variables
(lambda _ (lambda _
(setenv "PATH" (string-append (getcwd) "/dist/build/alex:" (setenv "PATH" (string-append (getcwd) "/dist/build/alex:"
(getenv "PATH"))) (getenv "PATH")))
(setenv "alex_datadir" (string-append (getcwd) "/data")) (setenv "alex_datadir" (string-append (getcwd) "/data")))))))
#t)))))
(inputs (list ghc-quickcheck)) (inputs (list ghc-quickcheck))
(native-inputs (native-inputs
(list which)) (list which))