ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

machine: Remove unnecessary record self-referencing bindings.

Browse source 
'this-machine' and 'this-machine-ssh-configuration' were useless given
that there are no thunked fields.

* gnu/machine.scm (<machine>)[this-machine]: Remove.
* gnu/machine/ssh.scm (<machine-ssh-configuration>)
[this-machine-ssh-configuration]: Remove.
This commit is contained in:
Ludovic Courtès 2019-12-07 23:16:40 +01:00
parent deeaa9e199
commit a1d7920861
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/machine.scm
View file

@ -33,7 +33,6 @@ (define-module (gnu machine)
machine
machine?
this-machine
machine-operating-system
machine-environment
@ -89,10 +88,8 @@ (define-record-type* <environment-type> environment-type
;;; Declarations for machines in a deployment.
;;;
(define-record-type* <machine> machine
make-machine
(define-record-type* <machine> machine make-machine
machine?
this-machine
(operating-system %machine-operating-system); <operating-system>
(environment machine-environment) ; symbol
(configuration machine-configuration ; configuration object

1
gnu/machine/ssh.scm
View file

@ -74,7 +74,6 @@ (define-module (gnu machine ssh)
(define-record-type* <machine-ssh-configuration> machine-ssh-configuration
make-machine-ssh-configuration
machine-ssh-configuration?
this-machine-ssh-configuration
(host-name machine-ssh-configuration-host-name) ; string
(system machine-ssh-configuration-system) ; string
(build-locally? machine-ssh-configuration-build-locally? ; boolean