haskell/haskell-ide-engine
1
1
Fork 0
mirror of https://github.com/haskell/haskell-ide-engine.git synced 2024-09-11 11:05:30 +03:00
Code Issues Projects Releases Wiki Activity

Remove unnecessary catch over lookupEnv

Browse Source
This commit is contained in:
jneira 2019-11-14 10:38:18 +01:00
parent 0f72de0c98
commit 2140a5a9ff
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
install/src/Stack.hs
View File

@ -105,10 +105,7 @@ stackBuildFailMsg =
withoutStackCachedBinaries :: Action a -> Action a
withoutStackCachedBinaries action = do
let getEnvErrorHandler e | isDoesNotExistError e = return Nothing
| otherwise = throwIO e
mbPath <- liftIO (lookupEnv "PATH" `catch` getEnvErrorHandler)
mbPath <- liftIO (lookupEnv "PATH")
case (mbPath, isRunFromStack) of