Fix Setup to not crash when a symlink exists.

1 files changed, 6 insertions, 1 deletions

diff --git a/Setup.hs b/Setup.hs
index 648d5a2..a7a3323 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -51,5 +51,10 @@ main = do
 
     lnF from to = do
       printf "%s -> %s\n" from to
-      flip when (removeLink to) =<< doesFileExist to
+      flip when (removeLink to) =<< doesExist to
       createSymbolicLink from to
+
+    doesExist f = do
+      b1 <- doesFileExist f
+      b2 <- doesDirectoryExist f
+      return (b1 || b2)