mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Steer towards deduplication

Browse source
This commit is contained in:
Jean Jordaan 2015-04-03 14:21:50 +07:00
parent a588e58345
commit 500cf3e37e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Import.hs
View file

@ -89,7 +89,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
checkdup dupa notdupa = do checkdup dupa notdupa = do