services: tor: Rename activation procedure.
* gnu/services/networking.scm: Rename the procedure tor-hidden-service-activation to tor-activation.
This commit is contained in:
		
							parent
							
								
									5dfd80e1c5
								
							
						
					
					
						commit
						d973915e48
					
				
					 1 changed files with 2 additions and 2 deletions
				
			
		| 
						 | 
					@ -676,7 +676,7 @@ HiddenServicePort ~a ~a~%"
 | 
				
			||||||
                (stop #~(make-kill-destructor))
 | 
					                (stop #~(make-kill-destructor))
 | 
				
			||||||
                (documentation "Run the Tor anonymous network overlay."))))))))
 | 
					                (documentation "Run the Tor anonymous network overlay."))))))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define (tor-hidden-service-activation config)
 | 
					(define (tor-activation config)
 | 
				
			||||||
  "Set up directories for Tor and its hidden services, if any."
 | 
					  "Set up directories for Tor and its hidden services, if any."
 | 
				
			||||||
  #~(begin
 | 
					  #~(begin
 | 
				
			||||||
      (use-modules (guix build utils))
 | 
					      (use-modules (guix build utils))
 | 
				
			||||||
| 
						 | 
					@ -721,7 +721,7 @@ HiddenServicePort ~a ~a~%"
 | 
				
			||||||
                       (service-extension account-service-type
 | 
					                       (service-extension account-service-type
 | 
				
			||||||
                                          (const %tor-accounts))
 | 
					                                          (const %tor-accounts))
 | 
				
			||||||
                       (service-extension activation-service-type
 | 
					                       (service-extension activation-service-type
 | 
				
			||||||
                                          tor-hidden-service-activation)))
 | 
					                                          tor-activation)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
                ;; This can be extended with hidden services.
 | 
					                ;; This can be extended with hidden services.
 | 
				
			||||||
                (compose concatenate)
 | 
					                (compose concatenate)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue