X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/eaabc5e87f4e48d7bce88ca231f5fc2d554ca3d6..06deab3321d387fff3f07efe9c53c7db3ab2aa85:/gnu/machine.scm diff --git a/gnu/machine.scm b/gnu/machine.scm index b342fe2144..60be674972 100644 --- a/gnu/machine.scm +++ b/gnu/machine.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019 David Thompson -;;; Copyright © 2019 Jakob L. Kreuze +;;; Copyright © 2019 Jakob L. Kreuze ;;; ;;; This file is part of GNU Guix. ;;; @@ -23,7 +23,7 @@ #:use-module (guix monads) #:use-module (guix records) #:use-module (guix store) - #:use-module ((guix utils) #:select (source-properties->location)) + #:use-module ((guix diagnostics) #:select (source-properties->location)) #:use-module (srfi srfi-35) #:export (environment-type environment-type? @@ -33,7 +33,6 @@ machine machine? - this-machine machine-operating-system machine-environment @@ -52,7 +51,7 @@ ;;; Commentary: ;;; ;;; This module provides the types used to declare individual machines in a -;;; heterogeneous Guix deployment. The interface allows users of specify system +;;; heterogeneous Guix deployment. The interface allows users to specify system ;;; configurations and the means by which resources should be provisioned on a ;;; per-host basis. ;;; @@ -89,10 +88,8 @@ ;;; Declarations for machines in a deployment. ;;; -(define-record-type* machine - make-machine +(define-record-type* machine make-machine machine? - this-machine (operating-system %machine-operating-system); (environment machine-environment) ; symbol (configuration machine-configuration ; configuration object