From 2613f676d0c6d16a92eaae00eb4cccad9504998e Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Wed, 30 Jan 2019 20:56:39 +0100 Subject: Fix SomeException swallowing in compileWithCabalV2GhcEnv --- src/CabalHelper/Compiletime/Compile.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/CabalHelper/Compiletime/Compile.hs b/src/CabalHelper/Compiletime/Compile.hs index 3bc959c..88ff51d 100644 --- a/src/CabalHelper/Compiletime/Compile.hs +++ b/src/CabalHelper/Compiletime/Compile.hs @@ -14,7 +14,7 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . -{-# LANGUAGE DeriveFunctor, GADTs #-} +{-# LANGUAGE DeriveFunctor, GADTs, ScopedTypeVariables #-} {-| Module : CabalHelper.Compiletime.Compile @@ -225,7 +225,7 @@ compileHelper' CompHelperEnv {..} = do prepare env = do -- exists_in_env <- liftIO $ cabalVersionExistsInPkgDb cheCabalVer db void $ installCabalLibV2 ghcVer cheCabalVer env `E.catch` - \(SomeException _) -> + \(ex :: IOError) -> print ex >> case cheCabalVer of CabalHEAD _ -> panicIO "Installing Cabal HEAD failed." CabalVersion ver -> errorInstallCabal (CabalVersion ver) -- cgit v1.2.3