services: Change default 'stop' value to #~(const #f).
* gnu/services.scm (<service>)[stop]: Change default value.
This commit is contained in:
		
							parent
							
								
									736755e21e
								
							
						
					
					
						commit
						bebc8681c2
					
				
					 1 changed files with 4 additions and 3 deletions
				
			
		| 
						 | 
					@ -17,6 +17,7 @@
 | 
				
			||||||
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | 
					;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define-module (gnu services)
 | 
					(define-module (gnu services)
 | 
				
			||||||
 | 
					  #:use-module (guix gexp)
 | 
				
			||||||
  #:use-module (guix records)
 | 
					  #:use-module (guix records)
 | 
				
			||||||
  #:export (service?
 | 
					  #:export (service?
 | 
				
			||||||
            service
 | 
					            service
 | 
				
			||||||
| 
						 | 
					@ -47,9 +48,9 @@
 | 
				
			||||||
                 (default '()))
 | 
					                 (default '()))
 | 
				
			||||||
  (respawn?      service-respawn?                 ; Boolean
 | 
					  (respawn?      service-respawn?                 ; Boolean
 | 
				
			||||||
                 (default #t))
 | 
					                 (default #t))
 | 
				
			||||||
  (start         service-start)                   ; g-expression
 | 
					  (start         service-start)                   ; g-expression (procedure)
 | 
				
			||||||
  (stop          service-stop                     ; g-expression
 | 
					  (stop          service-stop                     ; g-expression (procedure)
 | 
				
			||||||
                 (default #f))
 | 
					                 (default #~(const #f)))
 | 
				
			||||||
  (user-accounts service-user-accounts            ; list of <user-account>
 | 
					  (user-accounts service-user-accounts            ; list of <user-account>
 | 
				
			||||||
                 (default '()))
 | 
					                 (default '()))
 | 
				
			||||||
  (user-groups   service-user-groups              ; list of <user-groups>
 | 
					  (user-groups   service-user-groups              ; list of <user-groups>
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue