From 41694abbb650e236bd8080311787f435664dd0de Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 9 Feb 2024 13:26:35 -0700 Subject: Fix Setup to not crash when a symlink exists. --- Setup.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Setup.hs') 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) -- cgit