@@ -46,12 +46,12 @@ (define-json-mapping <composer-autoload> make-composer-autoload composer-autoloa
json->composer-autoload
(psr-4 composer-autoload-psr-4 "psr-4"
(match-lambda
- (#f '())
- (psr-4 psr-4)))
+ (psr-4 psr-4)
+ (_ '())))
(classmap composer-autoload-classmap "classmap"
(match-lambda
- (#f '())
- (#(lst ...) lst))))
+ (#(lst ...) lst)
+ (_ '()))))
(define-json-mapping <composer-package> make-composer-package composer-package?
json->composer-package
@@ -62,12 +62,12 @@ (define-json-mapping <composer-package> make-composer-package composer-package?
(dev-require composer-package-dev-require "require-dev" json->require)
(scripts composer-package-scripts "scripts"
(match-lambda
- (#f '())
- ((scripts ...) scripts)))
+ ((scripts ...) scripts)
+ (_ '())))
(binaries composer-package-binaries "bin"
(match-lambda
- (#f '())
- (#(lst ...) lst))))
+ (#(lst ...) lst)
+ (_ '()))))
(define* (read-package-data #:key (filename "composer.json"))
(call-with-input-file filename