From 9f2b551f7c978fd09afb3025f658d3d58bf74d8d Mon Sep 17 00:00:00 2001 From: Alberto Fanton Date: Thu, 25 Jul 2024 17:55:10 +0200 Subject: [PATCH] Fix typos --- cabal-install/src/Distribution/Client/ProjectConfig.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cabal-install/src/Distribution/Client/ProjectConfig.hs b/cabal-install/src/Distribution/Client/ProjectConfig.hs index aa20d71af12..f0b467c9b71 100644 --- a/cabal-install/src/Distribution/Client/ProjectConfig.hs +++ b/cabal-install/src/Distribution/Client/ProjectConfig.hs @@ -542,13 +542,13 @@ getProjectRootUsability filePath = do if exists then return ProjectRootUsabilityPresentAndUsable else do - let isUsableAciton = + let isUsableAction = handle @IOException -- NOTE: if any IOException is raised, we assume the file does not exist. - -- That is what happen when we call @pathIsSymbolicLink@ on an @FilePath@ that does not exist. + -- That is what happen when we call @pathIsSymbolicLink@ on a @FilePath@ that does not exist. (const $ pure False) ((||) <$> pathIsSymbolicLink filePath <*> doesPathExist filePath) - isUnusable <- isUsableAciton + isUnusable <- isUsableAction if isUnusable then return ProjectRootUsabilityPresentAndUnusable else return ProjectRootUsabilityNotPresent