remove useless checks

the file will always be a symlink at this point

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. -}