From: panne Date: Fri, 21 Jan 2005 21:52:56 +0000 (+0000) Subject: [project @ 2005-01-21 21:52:56 by panne] X-Git-Tag: nhc98-1-18-release~85 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6350abd168b45763b2db174ebd3320bfaf705eec;p=haskell-directory.git [project @ 2005-01-21 21:52:56 by panne] *sigh* Once again: Fixed a Haddock comment which broke "make html"... Why on earth do we have "make validate"?? :ยด-( I think we should introduce some kind of disciplinary punishment for checking in broken Haddock comments, like porting the mangler to a new platform or porting Adjustor.c to an ABI more irregular than the one on PowerPC... --- diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs index 186fd8e..6082a03 100644 --- a/GHC/TopHandler.lhs +++ b/GHC/TopHandler.lhs @@ -29,7 +29,7 @@ import GHC.Prim (unsafeCoerce#) -- | 'runMainIO' is wrapped around 'Main.main' (or whatever main is -- called in the program). It catches otherwise uncaught exceptions, --- and also flushes stdout/stderr before exiting. +-- and also flushes stdout\/stderr before exiting. runMainIO :: IO a -> IO a runMainIO main = (do a <- main; cleanUp; return a) `catchException` topHandler