From 4ec16731b9c768ceca2eca8095897a1fe6ca468e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 26 Jan 2001 11:50:40 +0000
Subject: [PATCH] [project @ 2001-01-26 11:50:39 by simonpj] Wibbles

---
 ghc/compiler/main/CmdLineOpts.lhs |    2 ++
 ghc/compiler/rename/Rename.lhs    |    2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index a7f8580..d438189 100644
--- 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
--- 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) ]
 
 
-- 
1.7.10.4