summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-12-12 15:20:47 +0100
committerLudovic Courtès <ludo@gnu.org>2017-12-12 18:11:22 +0100
commit3d19b7fbc2f9394ad7d957f1408fef9fc0589ce6 (patch)
tree86f90991c67d9b652a8d0480730cb7aeb50f79ff
parent6c80641d54a95f2da95e480a4a746761d25161e9 (diff)
downloadguix-3d19b7fbc2f9394ad7d957f1408fef9fc0589ce6.tar.gz
derivations: Use 'define-immutable-record-type' as appropriate.
This is a followup to dc673fa1131fb5d1e5ca29acb4a693cfb906986f.

* guix/derivations.scm (<derivation-output>, <derivation-input>): Use
'define-immutable-record-type'.
-rw-r--r--guix/derivations.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm
index 07803ca94f..b95849727b 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -136,7 +136,7 @@
   (env-vars derivation-builder-environment-vars)  ; list of name/value pairs
   (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?)
   derivation-output?
   (path       derivation-output-path)             ; store path
@@ -144,7 +144,7 @@
   (hash       derivation-output-hash)             ; bytevector | #f
   (recursive? derivation-output-recursive?))      ; Boolean
 
-(define-record-type <derivation-input>
+(define-immutable-record-type <derivation-input>
   (make-derivation-input path sub-derivations)
   derivation-input?
   (path            derivation-input-path)             ; store path