Revert "Fix #8754 in a round-about way."
authorAustin Seipp <austin@well-typed.com>
Tue, 18 Feb 2014 11:20:25 +0000 (05:20 -0600)
committerAustin Seipp <austin@well-typed.com>
Tue, 18 Feb 2014 11:20:25 +0000 (05:20 -0600)
This reverts commit 5023c91780e90947680fe0640f7564a4f6448bea.

ghc/Main.hs

index 1aa6553..868042b 100644 (file)
@@ -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 ()