8276_fix.patch

diff --git src/Haddock.hs src/Haddock.hs
index a7ac5ba..cecd7f5 100644
--- src/Haddock.hs
+++ src/Haddock.hs
@@ -113,6 +113,11 @@ handleGhcExceptions =
     case e of
       PhaseFailed _ code -> exitWith code
       _ -> do
+        flags <- saveStaticFlagGlobals
+        unless (fst flags) $ do
+          _ <- parseStaticFlags []
+          return ()
+
         print (e :: GhcException)
         exitFailure