From cda84b49bfb0e17557eddd9178267d3ee0d9b343 Mon Sep 17 00:00:00 2001 From: Tamar Christina Date: Sat, 26 Sep 2015 16:23:00 +0200 Subject: Create Process: removed PhaseFailed --- haddock-api/src/Haddock.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 8f327b09..b87c4cf5 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -121,11 +121,8 @@ handleGhcExceptions = -- error messages propagated as exceptions handleGhcException $ \e -> do hFlush stdout - case e of - PhaseFailed _ code -> exitWith code - _ -> do - print (e :: GhcException) - exitFailure + print (e :: GhcException) + exitFailure ------------------------------------------------------------------------------- -- cgit v1.2.3