From e33eea8ffd5d7e678107103b14989a41f27a1c34 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Tue, 3 Mar 2015 02:06:27 -0500
Subject: Revert "system: Add 'x509-certificates' field, and populate
 /etc/ssl/certs."

This reverts commit e979e6dd523acaa2a089f1b8f44e34c1e5b7d32d.
---
 gnu/system.scm | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'gnu/system.scm')

diff --git a/gnu/system.scm b/gnu/system.scm
index 1c2c986436..3fe78339b7 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -42,7 +42,6 @@ (define-module (gnu system)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages firmware)
   #:autoload   (gnu packages cryptsetup) (cryptsetup)
-  #:use-module (gnu packages certs)
   #:use-module (gnu services)
   #:use-module (gnu services dmd)
   #:use-module (gnu services base)
@@ -78,7 +77,6 @@ (define-module (gnu system)
             operating-system-locale-definitions
             operating-system-mapped-devices
             operating-system-file-systems
-            operating-system-x509-certificates
             operating-system-activation-script
 
             operating-system-derivation
@@ -142,8 +140,6 @@ (define-record-type* <operating-system> operating-system
                       (default %default-locale-definitions))
   (name-service-switch operating-system-name-service-switch ; <name-service-switch>
                        (default %default-nss))
-  (x509-certificates operating-system-x509-certificates     ; package
-                     (default nss-certs))
 
   (services operating-system-user-services        ; list of monadic services
             (default %base-services))
@@ -416,7 +412,6 @@ (define* (etc-directory #:key
                         (pam-services '())
                         (profile "/run/current-system/profile")
                         hosts-file nss
-                        x509-certificates
                         (sudoers ""))
   "Return a derivation that builds the static part of the /etc directory."
   (mlet* %store-monad
@@ -466,8 +461,6 @@ (define* (etc-directory #:key
                 `(("services" ,#~(string-append #$net-base "/etc/services"))
                   ("protocols" ,#~(string-append #$net-base "/etc/protocols"))
                   ("rpc" ,#~(string-append #$net-base "/etc/rpc"))
-                  ("ssl" ,#~(string-append #$x509-certificates
-                                           "/etc/ssl")) ;for OpenSSL & co.
                   ("emacs" ,#~#$emacs)
                   ("pam.d" ,#~#$pam.d)
                   ("login.defs" ,#~#$login.defs)
@@ -530,7 +523,6 @@ (define (operating-system-etc-directory os)
                   #:timezone (operating-system-timezone os)
                   #:hosts-file /etc/hosts
                   #:sudoers (operating-system-sudoers os)
-                  #:x509-certificates (operating-system-x509-certificates os)
                   #:profile profile-drv)))
 
 (define %setuid-programs
-- 
cgit v1.2.3