nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix: import: stackage: Fix JSON accessors. 

* guix/import/stackage.scm (lts-info-ghc-version, lst-info-packages): Use
assoc-ref for accessing parsed JSON.
This commit is contained in:
Timothy Sample 2018-08-28 09:45:36 -04:00 committed by Ricardo Wurmus
parent bb6419f374
commit 127586adfb
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/import/stackage.scm
View File

@ -43,15 +43,12 @@
(define (lts-info-ghc-version lts-info) (define (lts-info-ghc-version lts-info)
"Retruns the version of the GHC compiler contained in LTS-INFO." "Retruns the version of the GHC compiler contained in LTS-INFO."
(match lts-info (and=> (assoc-ref lts-info "snapshot")
((("snapshot" ("ghc" . version) _ _) _) version) (cut assoc-ref <> "ghc")))
(_ #f)))
(define (lts-info-packages lts-info) (define (lts-info-packages lts-info)
"Returns the alist of packages contained in LTS-INFO." "Retruns the alist of packages contained in LTS-INFO."
(match lts-info (or (assoc-ref lts-info "packages") '()))
((("packages" pkg ...) . _) pkg)
(_ '())))
(define (leave-with-message fmt . args) (define (leave-with-message fmt . args)
(raise (condition (&message (message (apply format #f fmt args)))))) (raise (condition (&message (message (apply format #f fmt args))))))