[project @ 2000-10-31 11:16:12 by simonmar]

remove extra leading dash from isStaticFlag predicate

ghc/compiler/main/CmdLineOpts.lhs

@@ -464,58 +464,58 @@ opt_Verbose			= lookUp SLIT("-v")
 \begin{code}
 isStaticHscFlag f =
   f `elem` [
-	"-fauto-sccs-on-all-toplevs",
-	"-fauto-sccs-on-exported-toplevs",
-	"-fauto-sccs-on-individual-cafs",
-	"-fauto-sccs-on-dicts",
-	"-fscc-profiling",
-	"-fticky-ticky",
-	"-fall-strict",
-	"-fdicts-strict",
-	"-fgenerics",
-	"-firrefutable-tuples",
-	"-fnumbers-strict",
-	"-fparallel",
-	"-fsmp",
-	"-fsemi-tagging",
-	"-ffoldr-build-on",
-	"-flet-no-escape",
-	"-funfold-casms-in-hi-file",
-	"-fusagesp-on",
-	"-funbox-strict-fields",
-	"-femit-extern-decls",
-	"-fglobalise-toplev-names",
-	"-fgransim",
-	"-fignore-asserts",
-	"-fignore-interface-pragmas",
-	"-fno-hi-version-check",
-	"-fno-implicit-prelude",
-	"-dno-black-holing",
-	"-fomit-interface-pragmas",
-	"-fno-pre-inlining",
-	"-fdo-eta-reduction",
-	"-fdo-lambda-eta-expansion",
-	"-fcase-of-case",
-	"-fcase-merge",
-	"-fpedantic-bottoms",
-	"-fexcess-precision",
-	"-funfolding-update-in-place",
-	"-freport-compile",
-	"-fno-prune-decls",
-	"-fno-prune-tydecls",
-	"-static",
-	"-funregisterised",
-	"-v" ]
+	"fauto-sccs-on-all-toplevs",
+	"fauto-sccs-on-exported-toplevs",
+	"fauto-sccs-on-individual-cafs",
+	"fauto-sccs-on-dicts",
+	"fscc-profiling",
+	"fticky-ticky",
+	"fall-strict",
+	"fdicts-strict",
+	"fgenerics",
+	"firrefutable-tuples",
+	"fnumbers-strict",
+	"fparallel",
+	"fsmp",
+	"fsemi-tagging",
+	"ffoldr-build-on",
+	"flet-no-escape",
+	"funfold-casms-in-hi-file",
+	"fusagesp-on",
+	"funbox-strict-fields",
+	"femit-extern-decls",
+	"fglobalise-toplev-names",
+	"fgransim",
+	"fignore-asserts",
+	"fignore-interface-pragmas",
+	"fno-hi-version-check",
+	"fno-implicit-prelude",
+	"dno-black-holing",
+	"fomit-interface-pragmas",
+	"fno-pre-inlining",
+	"fdo-eta-reduction",
+	"fdo-lambda-eta-expansion",
+	"fcase-of-case",
+	"fcase-merge",
+	"fpedantic-bottoms",
+	"fexcess-precision",
+	"funfolding-update-in-place",
+	"freport-compile",
+	"fno-prune-decls",
+	"fno-prune-tydecls",
+	"static",
+	"funregisterised",
+	"v" ]
   || any (flip prefixMatch f) [
-	"-fcontext-stack",
-	"-fliberate-case-threshold",
-	"-fhi-version=",
-	"-fhistory-size",
-	"-funfolding-interface-threshold",
-	"-funfolding-creation-threshold",
-	"-funfolding-use-threshold",
-	"-funfolding-fun-discount",
-	"-funfolding-keeness-factor"
+	"fcontext-stack",
+	"fliberate-case-threshold",
+	"fhi-version=",
+	"fhistory-size",
+	"funfolding-interface-threshold",
+	"funfolding-creation-threshold",
+	"funfolding-use-threshold",
+	"funfolding-fun-discount",
+	"funfolding-keeness-factor"
      ]
 \end{code}