[project @ 2001-01-26 11:50:39 by simonpj]

Wibbles

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index a7f8580..d438189 100644 (file)
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -529,6 +529,8 @@ isStaticHscFlag f =
        "fignore-interface-pragmas",
        "fno-hi-version-check",
        "dno-black-holing",
+       "fno-method-sharing",
+        "fno-monomorphism-restriction",
        "fomit-interface-pragmas",
        "fno-pre-inlining",
        "fdo-eta-reduction",

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 87eb777..c30be13 100644 (file)
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -891,7 +891,7 @@ warnDeprec :: (Name, DeprecTxt) -> RnM d ()
 warnDeprec (name, txt)
   = pushSrcLocRn (getSrcLoc name)      $
     addWarnRn                          $
-    sep [ text (occNameFlavour (nameOccName name)) <+> ppr name <+>
+    sep [ text (occNameFlavour (nameOccName name)) <+> quotes (ppr name) <+>
           text "is deprecated:", nest 4 (ppr txt) ]