diff options
| author | Tamar Christina <tamar@zhox.com> | 2015-09-26 16:23:00 +0200 |
|---|---|---|
| committer | Tamar Christina <tamar@zhox.com> | 2015-09-27 13:59:08 +0200 |
| commit | acfc97fdff76482e90bdd0e93e8982068017d23d (patch) | |
| tree | d826a1e2dbfb2232d1039ada916b19e2b2827123 | |
| parent | 5890a2d503b3200e9897ce331ad61d808a67fca3 (diff) | |
Create Process: removed PhaseFailed
| -rw-r--r-- | haddock-api/src/Haddock.hs | 7 |
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 ------------------------------------------------------------------------------- |