diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-16 21:18:21 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-16 21:18:21 -0400 |
commit | 38825f48645c0220b6b2e0368c2ebdbb625f6703 (patch) | |
tree | eff9b18489955e2049e96127d6e78a9458005630 /Commands.hs | |
parent | 0c0ae028386aaf17aed1771eee6731c62b72e839 (diff) |
remove useless checks
the file will always be a symlink at this point
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/Commands.hs b/Commands.hs index 9a3f92524..4346a35e2 100644 --- a/Commands.hs +++ b/Commands.hs @@ -192,16 +192,10 @@ fixCmd file = notinBackend file err $ \(key, backend) -> do gitAdd file $ Just $ "git-annex fix " ++ file where checkLegal file link = do - s <- liftIO $ getSymbolicLinkStatus file - force <- Annex.flagIsSet Force - if (not (isSymbolicLink s) && not force) - then error $ "not a symbolic link : " ++ file ++ - " (use --force to override this sanity check)" - else do - l <- liftIO $ readSymbolicLink file - if (link == l) - then error $ "symbolic link already ok for: " ++ file - else return () + l <- liftIO $ readSymbolicLink file + if (link == l) + then error $ "symbolic link already ok for: " ++ file + else return () err = error $ "not annexed " ++ file {- Pushes all files to a remote repository. -} |