diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-02-09 15:15:51 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-02-09 15:15:51 +0100 |
| commit | 51a05f32c9701e862f261b798dd596f24a3dc07a (patch) | |
| tree | d207fa52e82cccf0b8bc6bc28998fa2dd098d959 /ghc/Main.hs | |
| parent | 6fd720c0df656537498b40b5057087b6fb1e4832 (diff) | |
| download | haskell-wip/andreask/monadic_cse.tar.gz | |
Try make CSE monadicwip/andreask/monadic_cse
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 |