From 1038fc0125382aa22f98eef99a3208ac2c949bd2 Mon Sep 17 00:00:00 2001
From: Josh Berman <berman.josh@gmail.com>
Date: Wed, 20 Apr 2016 16:43:06 +0300
Subject: [PATCH] error handling when checking for stack binary

---
 yesod-bin/Keter.hs        | 4 ++--
 yesod-bin/yesod-bin.cabal | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-bin/Keter.hs b/yesod-bin/Keter.hs
index d5236e42..c64f9ac9 100644
--- a/yesod-bin/Keter.hs
+++ b/yesod-bin/Keter.hs
@@ -79,8 +79,8 @@ keter cabal noBuild noCopyTo buildArgs = do
 
     unless noBuild $ do
         stackQueryRunSuccess <- do
-            (ec,_,_) <- readProcessWithExitCode "stack" ["query"] ""
-            return (ec == ExitSuccess)
+            eres <- try $ readProcessWithExitCode "stack" ["query"] "" :: IO (Either SomeException (ExitCode, String, String))
+            return $ either (\_ -> False) (\(ec, _, _) -> (ec == ExitSuccess)) eres
 
         let inStackExec = isJust $ lookup "STACK_EXE" env'
             mStackYaml = lookup "STACK_YAML" env'
diff --git a/yesod-bin/yesod-bin.cabal b/yesod-bin/yesod-bin.cabal
index e1f8d8fe..aafb5389 100644
--- a/yesod-bin/yesod-bin.cabal
+++ b/yesod-bin/yesod-bin.cabal
@@ -1,5 +1,5 @@
 name:            yesod-bin
-version:         1.4.18
+version:         1.4.19
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>