Move "main/BinIface_HC_OPTS += -O" into a pragma in iface/BinIface.hs

[ghc-hetmet.git] / compiler / iface / BinIface.hs

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index ab4ab01..75e0d64 100644 (file)
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -1,7 +1,11 @@
 
--- 
+{-# OPTIONS_GHC -O #-}
+-- We always optimise this, otherwise performance of a non-optimised
+-- compiler is severely affected
+
+--
 --  (c) The University of Glasgow 2002-2006
--- 
+--
 -- Binary interface file support.
 
 module BinIface ( writeBinIface, readBinIface,
@@ -74,11 +78,6 @@ readBinIface_ checkHiWay traceBinIFaceReading hi_path nc = do
                      vcat [text "Wanted " <> ppr wanted <> text ",",
                            text "got    " <> ppr got])
 
-      errorOnMismatch' :: (Eq a, Show a) => String -> a -> a -> IO () -> IO ()
-      errorOnMismatch' what wanted got io
-           = do when (wanted /= got) $ io
-                errorOnMismatch what wanted got
-
       errorOnMismatch :: (Eq a, Show a) => String -> a -> a -> IO ()
       errorOnMismatch what wanted got
             -- This will be caught by readIface which will emit an error