diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-10-03 12:38:09 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-10-03 12:38:09 +0200 |
| commit | e083daa4a46ae2f9a244b6bcedc5951b3a78f260 (patch) | |
| tree | d826a1e2dbfb2232d1039ada916b19e2b2827123 | |
| parent | 5890a2d503b3200e9897ce331ad61d808a67fca3 (diff) | |
| parent | acfc97fdff76482e90bdd0e93e8982068017d23d (diff) | |
Merge pull request #448 from Mistuke/fix-silent-death-of-runInteractive
Remove 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 ------------------------------------------------------------------------------- |