From 483e4a9d07cb6e0a3be9ce052618c993a9d2d11e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 7 Mar 2022 22:44:34 +0100 Subject: import: hackage: Avoid pointless use of 'compose'. * guix/import/hackage.scm (hackage-module->sexp): Unroll pointless calls to 'compose'. (hackage->guix-package): Likewise. --- guix/import/hackage.scm | 30 ++++++++++++------------------ 1 file changed, 12 insertions(+), 18 deletions(-) diff --git a/guix/import/hackage.scm b/guix/import/hackage.scm index 75def99574..5403768a9d 100644 --- a/guix/import/hackage.scm +++ b/guix/import/hackage.scm @@ -249,23 +249,18 @@ the hash of the Cabal file." (hackage-source-url name version)) (define hackage-dependencies - ((compose (cut filter-dependencies <> - (cabal-package-name cabal)) - (cut cabal-dependencies->names <>)) - cabal)) + (filter-dependencies (cabal-dependencies->names cabal) + (cabal-package-name cabal))) (define hackage-native-dependencies (lset-difference equal? - ((compose (cut filter-dependencies <> - (cabal-package-name cabal)) - ;; FIXME: Check include-test-dependencies? - (lambda (cabal) - (append (if include-test-dependencies? - (cabal-test-dependencies->names cabal) - '()) - (cabal-custom-setup-dependencies->names cabal)))) - cabal) + (filter-dependencies + (append (if include-test-dependencies? + (cabal-test-dependencies->names cabal) + '()) + (cabal-custom-setup-dependencies->names cabal)) + (cabal-package-name cabal)) hackage-dependencies)) (define dependencies @@ -339,11 +334,10 @@ respectively." (read-cabal-and-hash port) (hackage-fetch-and-hash package-name)))) (if cabal-meta - ((compose (cut hackage-module->sexp <> cabal-hash - #:include-test-dependencies? - include-test-dependencies?) - (cut eval-cabal <> cabal-environment)) - cabal-meta) + (hackage-module->sexp (eval-cabal cabal-meta cabal-environment) + cabal-hash + #:include-test-dependencies? + include-test-dependencies?) (values #f '())))) (define hackage->guix-package/m ;memoized variant -- cgit v1.2.3