diff options
Diffstat (limited to 'Command/Move.hs')
| -rw-r--r-- | Command/Move.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index 9553d1639..155f4d605 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -82,7 +82,7 @@ toPerform dest move key = moveLock move key $ do else Remote.hasKey dest key case isthere of Left err -> do - showNote $ err + showNote err stop Right False -> do showAction $ "to " ++ Remote.name dest @@ -111,7 +111,7 @@ toPerform dest move key = moveLock move key $ do -} fromStart :: Remote.Remote Annex -> Bool -> FilePath -> Key -> CommandStart fromStart src move file key - | move == True = go + | move = go | otherwise = do ishere <- inAnnex key if ishere then stop else go |