diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-02-18 05:20:25 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-02-18 05:20:25 -0600 |
| commit | e789a4f51b6205160a696e3e6e13ecefb5ae16f7 (patch) | |
| tree | 8c2a9607c3a851924948495e9d381894eb0b957a /ghc | |
| parent | 642bba349fda1508aa136f7169c0ba63fb00a6f9 (diff) | |
| download | haskell-e789a4f51b6205160a696e3e6e13ecefb5ae16f7.tar.gz | |
Revert "Fix #8754 in a round-about way."
This reverts commit 5023c91780e90947680fe0640f7564a4f6448bea.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/Main.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 1aa65531a3..868042b4e2 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -1,5 +1,4 @@ {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-} -{-# LANGUAGE ForeignFunctionInterface #-} ----------------------------------------------------------------------------- -- @@ -77,7 +76,6 @@ import Data.Maybe main :: IO () main = do - defaultsHook hSetBuffering stdout LineBuffering hSetBuffering stderr LineBuffering GHC.defaultErrorHandler defaultFatalMessager defaultFlushOut $ do @@ -820,5 +818,3 @@ unknownFlagsErr fs = throwGhcException $ UsageError $ concatMap oneError fs (case fuzzyMatch f (nub allFlags) of [] -> "" suggs -> "did you mean one of:\n" ++ unlines (map (" " ++) suggs)) - -foreign import ccall safe "defaultsHook" defaultsHook :: IO () |