This commit is contained in:
Joey Hess 2011-09-15 14:34:15 -04:00
parent 9fe3c6d211
commit fe5e4bdc64

View file

@ -34,6 +34,7 @@ start (file, attr) = isAnnexed file $ \(key, _) -> do
case from of
Nothing -> next $ perform key
Just name -> do
-- get --from = copy --from
src <- Remote.byName name
next $ Command.Move.fromPerform src False key
where