diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-26 15:53:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-26 15:53:01 -0400 |
| commit | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (patch) | |
| tree | c47863a99db0631890802909583ac5003dda416f /Command/Move.hs | |
| parent | 257d1136e4178665fd52f14a2d430f9ad819d45f (diff) | |
refactor
Diffstat (limited to 'Command/Move.hs')
| -rw-r--r-- | Command/Move.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index b7b567812..682fb5296 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -17,7 +17,6 @@ import Annex.UUID import Logs.Presence import Logs.Transfer import GitAnnex.Options -import Types.Key def :: [Command] def = [withOptions moveOptions $ command "move" paramPaths seek @@ -54,10 +53,7 @@ start' to from move afile key = do "--auto is not supported for move" showMoveAction :: Bool -> Key -> AssociatedFile -> Annex () -showMoveAction True _ (Just file) = showStart "move" file -showMoveAction False _ (Just file) = showStart "copy" file -showMoveAction True key Nothing = showStart "move" (key2file key) -showMoveAction False key Nothing = showStart "copy" (key2file key) +showMoveAction move = showStart' (if move then "move" else "copy") {- Moves (or copies) the content of an annexed file to a remote. - |