diff options
Diffstat (limited to 'ghc/Main.hs')
-rw-r--r-- | ghc/Main.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 5e6042173f..df9d254b0c 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -89,6 +89,8 @@ import qualified Data.Set as Set import Data.Maybe import Prelude +import GHC.Debug.Stub + ----------------------------------------------------------------------------- -- ToDo: @@ -101,8 +103,10 @@ import Prelude ----------------------------------------------------------------------------- -- GHC's command-line interface -main :: IO () -main = do +main = withGhcDebug normalMain + +normalMain :: IO () +normalMain = do hSetBuffering stdout LineBuffering hSetBuffering stderr LineBuffering |