doc: Move Commentary above module definition.

Merges: https://codeberg.org/guix/guix/pulls/9052
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>

1 files changed, 25 insertions, 25 deletions

diff --git a/gnu/services.scm b/gnu/services.scm
index 097bfed5f1b..5f987f55a52 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -26,6 +26,31 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+;;;
+;;; This module defines a broad notion of "service types" and "services."
+;;;
+;;; A service type describe how its instances extend instances of other
+;;; service types.  For instance, some services extend the instance of
+;;; ACCOUNT-SERVICE-TYPE by providing it with accounts and groups to create;
+;;; others extend SHEPHERD-ROOT-SERVICE-TYPE by passing it instances of
+;;; <shepherd-service>.
+;;;
+;;; When applicable, the service type defines how it can itself be extended,
+;;; by providing one procedure to compose extensions, and one procedure to
+;;; extend itself.
+;;;
+;;; A notable service type is SYSTEM-SERVICE-TYPE, which has a single
+;;; instance, which is the root of the service DAG.  Its value is the
+;;; derivation that produces the 'system' directory as returned by
+;;; 'operating-system-derivation'.
+;;;
+;;; The 'fold-services' procedure can be passed a list of procedures, which it
+;;; "folds" by propagating extensions down the graph; it returns the root
+;;; service after the applying all its extensions.
+;;;
+;;; Code:
+
 (define-module (gnu services)
   #:use-module (guix derivations)
   #:use-module (guix gexp)
@@ -149,31 +174,6 @@
                ;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=26805#16>.
                delete))
 
-;;; Comment:
-;;;
-;;; This module defines a broad notion of "service types" and "services."
-;;;
-;;; A service type describe how its instances extend instances of other
-;;; service types.  For instance, some services extend the instance of
-;;; ACCOUNT-SERVICE-TYPE by providing it with accounts and groups to create;
-;;; others extend SHEPHERD-ROOT-SERVICE-TYPE by passing it instances of
-;;; <shepherd-service>.
-;;;
-;;; When applicable, the service type defines how it can itself be extended,
-;;; by providing one procedure to compose extensions, and one procedure to
-;;; extend itself.
-;;;
-;;; A notable service type is SYSTEM-SERVICE-TYPE, which has a single
-;;; instance, which is the root of the service DAG.  Its value is the
-;;; derivation that produces the 'system' directory as returned by
-;;; 'operating-system-derivation'.
-;;;
-;;; The 'fold-services' procedure can be passed a list of procedures, which it
-;;; "folds" by propagating extensions down the graph; it returns the root
-;;; service after the applying all its extensions.
-;;;
-;;; Code:
-
 (define-record-type <service-extension>
   (service-extension target compute)
   service-extension?