-- Hpc opts
opt_Hpc,
- opt_Hpc_Tracer,
-- language opts
opt_DictsStrict,
-- misc opts
opt_IgnoreDotGhci,
- opt_ShortGhciBanner,
opt_ErrorSpans,
opt_GranMacros,
opt_HiVersion,
------- GHCi -------------------------------------------------------
( "ignore-dot-ghci", PassFlag addOpt )
, ( "read-dot-ghci" , NoArg (removeOpt "-ignore-dot-ghci") )
- , ( "short-ghci-banner", PassFlag addOpt )
- , ( "long-ghci-banner" , NoArg (removeOpt "-short-ghci-banner") )
------- ways --------------------------------------------------------
, ( "prof" , NoArg (addWay WayProf) )
, ( "dppr-user-length", AnySuffix addOpt )
-- rest of the debugging flags are dynamic
- --------- Haskell Program Coverage -----------------------------------
-
- , ( "fhpc" , PassFlag addOpt )
- , ( "fhpc-tracer" , PassFlag addOpt )
-
--------- Profiling --------------------------------------------------
, ( "auto-all" , NoArg (addOpt "-fauto-sccs-on-all-toplevs") )
, ( "auto" , NoArg (addOpt "-fauto-sccs-on-exported-toplevs") )
opt_IgnoreDotGhci = lookUp FSLIT("-ignore-dot-ghci")
-opt_ShortGhciBanner = lookUp FSLIT("-short-ghci-banner")
-- debugging opts
opt_PprStyle_Debug = lookUp FSLIT("-dppr-debug")
opt_DoTickyProfiling = WayTicky `elem` (unsafePerformIO $ readIORef v_Ways)
-- Hpc opts
-
opt_Hpc = lookUp FSLIT("-fhpc")
- || opt_Hpc_Tracer
-opt_Hpc_Tracer = lookUp FSLIT("-fhpc-tracer")
-- language opts
opt_DictsStrict = lookUp FSLIT("-fdicts-strict")
"fext-core",
"fcpr-off",
"ferror-spans",
- "fPIC"
+ "fPIC",
+ "fhpc"
]
|| any (flip prefixMatch f) [
"fliberate-case-threshold",