Throw error if the exe to symlink is not found

DanielG · Feb 8, 2020 · a54febb · a54febb
1 parent 50bcd8e
commit a54febb
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/CabalHelper/Compiletime/CompPrograms.hs b/src/CabalHelper/Compiletime/CompPrograms.hs
@@ -95,8 +95,8 @@ createProgSymlink bindir target
     mb_exe_path <- findExecutable exe
     case mb_exe_path of
       Just exe_path -> createSymbolicLink exe_path (bindir </> takeFileName target)
-      Nothing -> createSymLinkFromCwd
-  | otherwise = createSymLinkFromCwd
-  where createSymLinkFromCwd = do
-          cwd <- getCurrentDirectory
-          createSymbolicLink (cwd </> target) (bindir </> takeFileName target)
+      Nothing -> error $ "Error trying to create symlink to " ++ target ++ ": " 
+                       ++ exe ++ " executable not found."
+  | otherwise = do
+    cwd <- getCurrentDirectory
+    createSymbolicLink (cwd </> target) (bindir </> takeFileName target)