X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHeaderInfo.hs;h=90c6155788d3217d0a1e714706c1a0b36544651c;hb=f8c52d7fde2d7408b4f734251c373f8d3e2c558e;hp=4988d2eea1e3ca84e932536d38582ee2de1021cd;hpb=f0aa996dfa9e14d25cf1ff579e2c2932f8f63bbe;p=ghc-hetmet.git

diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs
index 4988d2e..90c6155 100644
--- a/compiler/main/HeaderInfo.hs
+++ b/compiler/main/HeaderInfo.hs
@@ -8,6 +8,13 @@
 --
 -----------------------------------------------------------------------------
 
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module HeaderInfo ( getImportsFromFile, getImports
                   , getOptionsFromFile, getOptions
                   , optionsErrorMsgs ) where
@@ -190,7 +197,7 @@ languagePragParseError loc =
 unsupportedExtnError loc unsup =
   pgmError (showSDoc (mkLocMessage loc (
                 text "unsupported extension: " <>
-                (text.show) unsup)))
+                text unsup)))
 
 
 optionsErrorMsgs :: [String] -> [Located String] -> FilePath -> Messages