Steer towards deduplication

This commit is contained in:
Jean Jordaan 2015-04-03 14:21:50 +07:00
parent c011fe156d
commit 6c3a6cc188

View file

@ -98,7 +98,7 @@ start mode (srcfile, destfile) =
| isDirectory s = notoverwriting "(is a directory)" | isDirectory s = notoverwriting "(is a directory)"
| otherwise = ifM (Annex.getState Annex.force) | otherwise = ifM (Annex.getState Annex.force)
( liftIO $ nukeFile destfile ( liftIO $ nukeFile destfile
, notoverwriting "(use --force to override)" , notoverwriting "(use --force to override, or a duplication option such as --deduplicate to clean up)"
) )
notoverwriting why = error $ "not overwriting existing " ++ destfile ++ " " ++ why notoverwriting why = error $ "not overwriting existing " ++ destfile ++ " " ++ why
pickaction isdup = case mode of pickaction isdup = case mode of