aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock.hs
diff options
context:
space:
mode:
authorTamar Christina <tamar@zhox.com>2015-09-26 16:23:00 +0200
committerTamar Christina <tamar@zhox.com>2015-09-27 13:59:08 +0200
commitacfc97fdff76482e90bdd0e93e8982068017d23d (patch)
treed826a1e2dbfb2232d1039ada916b19e2b2827123 /haddock-api/src/Haddock.hs
parent5890a2d503b3200e9897ce331ad61d808a67fca3 (diff)
Create Process: removed PhaseFailed
Diffstat (limited to 'haddock-api/src/Haddock.hs')
-rw-r--r--haddock-api/src/Haddock.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs
index 72c544e1..5a62f3db 100644
--- a/haddock-api/src/Haddock.hs
+++ b/haddock-api/src/Haddock.hs
@@ -118,11 +118,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
-------------------------------------------------------------------------------