pull: Call 'ensure-default-profile' after 'set-build-options'.
This is a followup to 81c580c866.
* guix/scripts/pull.scm (guix-pull): Move 'ensure-default-profile' call after
'set-build-options-from-command-line' call.  This ensures that the
'profiles/per-user/$USER' directory is created before
'ensure-default-profile' is called when 'GUIX_DAEMON_SOCKET' points to a
remote TCP daemon.
			
			
This commit is contained in:
		
							parent
							
								
									63729d9277
								
							
						
					
					
						commit
						e6ea74d86c
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
					@ -772,11 +772,11 @@ Use '~/.config/guix/channels.scm' instead."))
 | 
				
			||||||
              (process-generation-change opts profile))
 | 
					              (process-generation-change opts profile))
 | 
				
			||||||
             (else
 | 
					             (else
 | 
				
			||||||
              (with-store store
 | 
					              (with-store store
 | 
				
			||||||
                (ensure-default-profile)
 | 
					 | 
				
			||||||
                (with-status-verbosity (assoc-ref opts 'verbosity)
 | 
					                (with-status-verbosity (assoc-ref opts 'verbosity)
 | 
				
			||||||
                  (parameterize ((%current-system (assoc-ref opts 'system))
 | 
					                  (parameterize ((%current-system (assoc-ref opts 'system))
 | 
				
			||||||
                                 (%graft? (assoc-ref opts 'graft?)))
 | 
					                                 (%graft? (assoc-ref opts 'graft?)))
 | 
				
			||||||
                    (set-build-options-from-command-line store opts)
 | 
					                    (set-build-options-from-command-line store opts)
 | 
				
			||||||
 | 
					                    (ensure-default-profile)
 | 
				
			||||||
                    (honor-x509-certificates store)
 | 
					                    (honor-x509-certificates store)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
                    (let ((instances (latest-channel-instances store channels)))
 | 
					                    (let ((instances (latest-channel-instances store channels)))
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue