[commit: ghc] ghc-7.8: Revert "Fix #8754 in a round-about way." (525db2a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/525db2ab17665330c353891cc33a9598296a8ef3/ghc

>---------------------------------------------------------------

commit 525db2ab17665330c353891cc33a9598296a8ef3
Author: Austin Seipp <austin at well-typed.com>
Date:   Tue Feb 18 05:20:25 2014 -0600

    Revert "Fix #8754 in a round-about way."
    
    This reverts commit 5023c91780e90947680fe0640f7564a4f6448bea.
    
    (cherry picked from commit e789a4f51b6205160a696e3e6e13ecefb5ae16f7)


>---------------------------------------------------------------

525db2ab17665330c353891cc33a9598296a8ef3
 ghc/Main.hs |    4 ----
 1 file changed, 4 deletions(-)

diff --git a/ghc/Main.hs b/ghc/Main.hs
index 1aa6553..868042b 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 ()