diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-03 23:42:17 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-03 23:42:17 +0100 |
| commit | 7b11baa68c36fdf5e441c76061fec3a38bc5dbbb (patch) | |
| tree | 18411e954ca515f2830a60d7db166f121a4592e6 /compiler/main | |
| parent | af4f98719e48cbb891bfb6e1c04c577649f32760 (diff) | |
| download | haskell-7b11baa68c36fdf5e441c76061fec3a38bc5dbbb.tar.gz | |
Make -fhpc a dynamic flag
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/DynFlags.hs | 4 | ||||
| -rw-r--r-- | compiler/main/StaticFlags.hs | 7 |
2 files changed, 3 insertions, 8 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 3451dfdf18..723bf44b8b 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -327,6 +327,7 @@ data DynFlag | Opt_SccProfilingOn | Opt_Ticky | Opt_Static + | Opt_Hpc -- output style opts | Opt_PprCaseAsLet @@ -2275,7 +2276,8 @@ fFlags = [ ( "building-cabal-package", Opt_BuildingCabalPackage, nop ), ( "implicit-import-qualified", Opt_ImplicitImportQualified, nop ), ( "prof-count-entries", Opt_ProfCountEntries, nop ), - ( "prof-cafs", Opt_AutoSccsOnIndividualCafs, nop ) + ( "prof-cafs", Opt_AutoSccsOnIndividualCafs, nop ), + ( "hpc", Opt_Hpc, nop ) ] -- | These @-f\<blah\>@ flags can all be reversed with @-fno-\<blah\>@ diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index df6d9245b4..3165c6944b 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -37,9 +37,6 @@ module StaticFlags ( opt_SuppressTypeSignatures, opt_SuppressVarKinds, - -- Hpc opts - opt_Hpc, - -- language opts opt_DictsStrict, @@ -219,10 +216,6 @@ opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug") opt_NoDebugOutput :: Bool opt_NoDebugOutput = lookUp (fsLit "-dno-debug-output") --- Hpc opts -opt_Hpc :: Bool -opt_Hpc = lookUp (fsLit "-fhpc") - -- language opts opt_DictsStrict :: Bool opt_DictsStrict = lookUp (fsLit "-fdicts-strict") |