[commit: ghc] master: Revert "Fix #8754 in a round-about way." (e789a4f)

git at git.haskell.org git at git.haskell.org
Tue Feb 18 12:16:54 UTC 2014


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e789a4f51b6205160a696e3e6e13ecefb5ae16f7/ghc

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

commit e789a4f51b6205160a696e3e6e13ecefb5ae16f7
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.


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

e789a4f51b6205160a696e3e6e13ecefb5ae16f7
 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 ()



More information about the ghc-commits mailing list