mirror of
https://github.com/haskell/haskell-ide-engine.git
synced 2024-08-15 22:10:31 +03:00
Print exception trying to get $PATH
This commit is contained in:
parent
3224d7005f
commit
b53621ccc3
@ -106,7 +106,10 @@ withoutStackCachedBinaries :: Action a -> Action a
|
||||
withoutStackCachedBinaries action = do
|
||||
|
||||
let getEnvErrorHandler :: IOException -> IO (Maybe String)
|
||||
getEnvErrorHandler _ = return Nothing
|
||||
getEnvErrorHandler e = do
|
||||
printLine "Error trying to get $PATH environment variable:"
|
||||
printLine (show e)
|
||||
return Nothing
|
||||
|
||||
mbPath <- liftIO (lookupEnv "PATH" `catch` getEnvErrorHandler)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user