646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
44 lines
1.2 KiB
Scheme
Executable File
44 lines
1.2 KiB
Scheme
Executable File
(import (chicken process-context)
|
|
(chicken format)
|
|
(chicken string))
|
|
|
|
(define env-var get-environment-variable)
|
|
(define ref alist-ref)
|
|
|
|
(define egg (read))
|
|
|
|
(printf "[~A]\n" (env-var "EGG_NAME"))
|
|
|
|
(define dependencies
|
|
(map (lambda (dep)
|
|
(->string (if (list? dep)
|
|
(car dep)
|
|
dep)))
|
|
(append
|
|
(ref 'dependencies egg eqv? '())
|
|
;; TODO separate this into `buildInputs` and `propagatedBuildInputs`
|
|
(ref 'build-dependencies egg eqv? '()))))
|
|
(printf "dependencies = [~A]\n"
|
|
(string-intersperse (map (lambda (dep) (sprintf "~S" dep))
|
|
dependencies)
|
|
", "))
|
|
|
|
(define license (ref 'license egg))
|
|
(printf "license = ~S\n"
|
|
(if (not license)
|
|
""
|
|
(string-translate (->string (car license))
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ "
|
|
"abcdefghijklmnopqrstuvwxyz-")))
|
|
|
|
(printf "sha256 = ~S\n" (env-var "EGG_SHA256"))
|
|
|
|
(define synopsis (ref 'synopsis egg))
|
|
(printf "synopsis = ~S\n"
|
|
(if (not synopsis)
|
|
""
|
|
(car synopsis)))
|
|
|
|
(printf "version = ~S\n" (env-var "EGG_VERSION"))
|
|
(print)
|