01/03: web: Export more nginx related procedures, macros and record types.

[Christopher Baines]

cbaines pushed a commit to branch master
in repository guix.

commit e4b729f89c07b8937db7f96d6076201130f0a3bf
Author: Christopher Baines <address@hidden>
Date:   Sun Jul 30 11:21:16 2017 +0100

    web: Export more nginx related procedures, macros and record types.
    
    This makes it possible to work with the configuration of the NGinx service
    programatically.
    
    * gnu/services/web.scm (<nginx-configuration>, <nginx-server-configuration>,
      <nginx-upstream-configuration>, <nginx-location-configuration>,
      <nginx-named-location-configuration>): Export NGinx related record
      types.
      (nginx-configuration-*, nginx-server-configuration-*,
      nginx-upstream-configuration-*, nginx-location-configuration-*,
      nginx-named-location-configuration-*): Export NGinx related record
      procedures.
      (nginx-configuration): Export NGinx related record macro.
---
 gnu/services/web.scm | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index cc7adeb..4156b1a 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -30,16 +30,47 @@
   #:use-module (guix gexp)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 match)
-  #:export (nginx-configuration
+  #:export (<nginx-configuration>
+            nginx-configuration
             nginx-configuration?
+            nginx-configuartion-nginx
+            nginx-configuration-log-directory
+            nginx-configuration-run-directory
+            nginx-configuration-server-blocks
+            nginx-configuration-upstream-blocks
+            nginx-configuration-file
+
+            <nginx-server-configuration>
             nginx-server-configuration
             nginx-server-configuration?
+            nginx-server-configuration-http-port
+            nginx-server-configuartion-https-port
+            nginx-server-configuration-server-name
+            nginx-server-configuration-root
+            nginx-server-configuration-locations
+            nginx-server-configuration-index
+            nginx-server-configuration-ssl-certificate
+            nginx-server-configuration-ssl-certificate-key
+            nginx-server-configuration-server-tokens?
+
+            <nginx-upstream-configuration>
             nginx-upstream-configuration
             nginx-upstream-configuration?
+            nginx-upstream-configuration-name
+            nginx-upstream-configuration-servers
+
+            <nginx-location-configuration>
             nginx-location-configuration
             nginx-location-configuration?
+            nginx-location-configuration-uri
+            nginx-location-configuration-body
+
+            <nginx-named-location-configuration>
             nginx-named-location-configuration
             nginx-named-location-configuration?
+            nginx-named-location-configuration-name
+            nginx-named-location-configuration-body
+
             nginx-service
             nginx-service-type