nix-community/dream2nix
1
1
Fork 0
mirror of https://github.com/nix-community/dream2nix.git synced 2024-12-25 15:33:20 +03:00
Code Issues Projects Releases Wiki Activity

info.rkt: cosmetics

Browse Source
This commit is contained in:
Brian Leung 2023-01-26 18:47:54 -08:00
parent 029dcc6358
commit d685c829a3
No known key found for this signature in database
GPG Key ID: 2D86D6A94C8BB3B1
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/subsystems/racket/translators/racket-impure/generate-dream-lock.rkt
View File

@ -205,18 +205,17 @@
[sources-hash-table (make-immutable-hash (append sources-from-catalog
sources-from-git
sources-from-repo))]
[sources (make-immutable-hash (hash-map dependency-subgraph
(lambda (name _v)
(cons (string->symbol name) (hash-ref sources-hash-table (string->symbol name))))))]
[sources (hash-map/copy dependency-subgraph
(lambda (name _v)
(values (string->symbol name) (hash-ref sources-hash-table (string->symbol name)))))]
[dream-lock (make-immutable-hash
`((_generic . ,generic)
(sources . ,sources)
(_subsystem . ,(make-immutable-hash))
(dependencies . ,(make-immutable-hash
(hash-map dependency-subgraph
(lambda (name dep-list)
(cons (string->symbol name)
(make-immutable-hash `((0.0.0 . ,(map (lambda (dep-name) (list dep-name "0.0.0")) dep-list)))))))))))])
(dependencies . ,(hash-map/copy dependency-subgraph
(lambda (name dep-list)
(values (string->symbol name)
(make-immutable-hash `((0.0.0 . ,(map (lambda (dep-name) (list dep-name "0.0.0")) dep-list))))))))))])
(make-parent-directory* (getenv "RACKET_OUTPUT_FILE"))
(with-output-to-file (getenv "RACKET_OUTPUT_FILE")
(lambda () (write-json dream-lock))