Commit 671e6004 authored by simonmar's avatar simonmar
Browse files

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

remove extra leading dash from isStaticFlag predicate
parent d1c6e4f7
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment