derivations: Use 'define-immutable-record-type' as appropriate.

This is a followup to dc673fa113.

* guix/derivations.scm (<derivation-output>, <derivation-input>): Use
'define-immutable-record-type'.
This commit is contained in:
Ludovic Courtès 2017-12-12 15:20:47 +01:00
parent 6c80641d54
commit 3d19b7fbc2
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions

View File

@ -136,7 +136,7 @@
(env-vars derivation-builder-environment-vars) ; list of name/value pairs (env-vars derivation-builder-environment-vars) ; list of name/value pairs
(file-name derivation-file-name)) ; the .drv file name (file-name derivation-file-name)) ; the .drv file name
(define-record-type <derivation-output> (define-immutable-record-type <derivation-output>
(make-derivation-output path hash-algo hash recursive?) (make-derivation-output path hash-algo hash recursive?)
derivation-output? derivation-output?
(path derivation-output-path) ; store path (path derivation-output-path) ; store path
@ -144,7 +144,7 @@
(hash derivation-output-hash) ; bytevector | #f (hash derivation-output-hash) ; bytevector | #f
(recursive? derivation-output-recursive?)) ; Boolean (recursive? derivation-output-recursive?)) ; Boolean
(define-record-type <derivation-input> (define-immutable-record-type <derivation-input>
(make-derivation-input path sub-derivations) (make-derivation-input path sub-derivations)
derivation-input? derivation-input?
(path derivation-input-path) ; store path (path derivation-input-path) ; store path