services: Never throw when stopping mount-may-fail file systems.
This is a followup to 7c27bd115b.
* gnu/services/base.scm (file-system-shepherd-service): Catch
'system-error from ‘umount’ call when FILE-SYSTEM is marked as
mount-may-fail.
Change-Id: I2234f8da320b43089f4ee058cad8608ce9c078f8
			
			
This commit is contained in:
		
							parent
							
								
									0a220c1599
								
							
						
					
					
						commit
						7c8d38f91e
					
				
					 1 changed files with 5 additions and 1 deletions
				
			
		| 
						 | 
					@ -448,7 +448,11 @@ upon boot."
 | 
				
			||||||
                      ;; Make sure PID 1 doesn't keep TARGET busy.
 | 
					                      ;; Make sure PID 1 doesn't keep TARGET busy.
 | 
				
			||||||
                      (chdir "/")
 | 
					                      (chdir "/")
 | 
				
			||||||
 | 
					
 | 
				
			||||||
                      (umount #$target)
 | 
					                      #$(if (file-system-mount-may-fail? file-system)
 | 
				
			||||||
 | 
					                            #~(catch 'system-error
 | 
				
			||||||
 | 
					                                (lambda () (umount #$target))
 | 
				
			||||||
 | 
					                                (const #f))
 | 
				
			||||||
 | 
					                            #~(umount #$target))
 | 
				
			||||||
                      #f))
 | 
					                      #f))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
            ;; We need additional modules.
 | 
					            ;; We need additional modules.
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue