mirror of
https://github.com/haskell/haskell-ide-engine.git
synced 2024-10-26 11:18:42 +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
|
withoutStackCachedBinaries action = do
|
||||||
|
|
||||||
let getEnvErrorHandler :: IOException -> IO (Maybe String)
|
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)
|
mbPath <- liftIO (lookupEnv "PATH" `catch` getEnvErrorHandler)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user