diff --git a/src/General/Extra.hs b/src/General/Extra.hs
index c9c28554..d7c5e4dc 100644
--- a/src/General/Extra.hs
+++ b/src/General/Extra.hs
@@ -232,7 +232,7 @@ handleSynchronous = handleBool (not . isAsyncException)
 -- System.Directory
 
 doesFileExist_ :: FilePath -> IO Bool
-doesFileExist_ x = doesFileExist x `catchIO` \_ -> pure False
+doesFileExist_ x = (||) <$> doesFileExist x <*> pathIsSymbolicLink x `catchIO` \_ -> pure False
 
 doesDirectoryExist_ :: FilePath -> IO Bool
 doesDirectoryExist_ x = doesDirectoryExist x `catchIO` \_ -> pure False