comment
This commit is contained in:
		
					parent
					
						
							
								9fe3c6d211
							
						
					
				
			
			
				commit
				
					
						fe5e4bdc64
					
				
			
		
					 1 changed files with 1 additions and 0 deletions
				
			
		| 
						 | 
					@ -34,6 +34,7 @@ start (file, attr) = isAnnexed file $ \(key, _) -> do
 | 
				
			||||||
			case from of
 | 
								case from of
 | 
				
			||||||
				Nothing -> next $ perform key
 | 
									Nothing -> next $ perform key
 | 
				
			||||||
				Just name -> do
 | 
									Just name -> do
 | 
				
			||||||
 | 
										-- get --from = copy --from
 | 
				
			||||||
					src <- Remote.byName name
 | 
										src <- Remote.byName name
 | 
				
			||||||
					next $ Command.Move.fromPerform src False key
 | 
										next $ Command.Move.fromPerform src False key
 | 
				
			||||||
	where
 | 
						where
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue