From b53621ccc3fc355e8efcf81eac6a65f1bb95ef8f Mon Sep 17 00:00:00 2001
From: jneira <atreyu.bbb@gmail.com>
Date: Mon, 11 Nov 2019 09:34:21 +0100
Subject: [PATCH] Print exception trying to get $PATH

---
 install/src/Stack.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/install/src/Stack.hs b/install/src/Stack.hs
index 142133e1..2fbc1a5e 100644
--- a/install/src/Stack.hs
+++ b/install/src/Stack.hs
@@ -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)