From 1025ed52821f20cffcc1cc8fa028e8074abecab6 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Thu, 12 Mar 2015 11:52:25 +0100 Subject: Fix ambiguity error --- Distribution/Helper.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs index 84a23aa..febd4aa 100644 --- a/Distribution/Helper.hs +++ b/Distribution/Helper.hs @@ -47,7 +47,7 @@ import Control.Monad import Control.Monad.IO.Class import Control.Monad.State.Strict import Control.Monad.Reader -import Control.Exception +import Control.Exception as E import Data.Monoid import Data.List import Data.Default @@ -182,7 +182,7 @@ getSomeConfigState = ask >>= \(progs, distdir) -> do res <- liftIO $ do exe <- findLibexecExe "cabal-helper-wrapper" out <- readProcess exe (distdir:args) "" - evaluate (read out) `catch` \(SomeException _) -> + evaluate (read out) `E.catch` \(SomeException _) -> error $ concat ["getSomeConfigState", ": ", exe, " " , intercalate " " (map show $ distdir:args) , " (read failed)"] -- cgit v1.2.3