summaryrefslogtreecommitdiff
path: root/Command/Move.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-26 15:53:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-26 15:53:01 -0400
commit541178b499d084e4041ae4b9d62bf86f5a97c3ff (patch)
treec47863a99db0631890802909583ac5003dda416f /Command/Move.hs
parent257d1136e4178665fd52f14a2d430f9ad819d45f (diff)
refactor
Diffstat (limited to 'Command/Move.hs')
-rw-r--r--Command/Move.hs6
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.
-