mirror of
https://github.com/haskell/haskell-ide-engine.git
synced 2024-09-11 11:05:30 +03:00
Remove unnecessary catch over lookupEnv
This commit is contained in:
parent
0f72de0c98
commit
2140a5a9ff
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user