Commit b5e939da authored by Ian Lynagh's avatar Ian Lynagh

Rename Opt_TH to Opt_TemplateHaskell to match the language name

parent fa15af51
......@@ -170,7 +170,7 @@ data DynFlag
| Opt_UnliftedFFITypes
| Opt_PArr -- Syntactic support for parallel arrays
| Opt_Arrows -- Arrow-notation syntax
| Opt_TH
| Opt_TemplateHaskell
| Opt_ImplicitParams
| Opt_Generics
| Opt_ImplicitPrelude
......@@ -1136,7 +1136,7 @@ fFlags = [
( "break-on-exception", Opt_BreakOnException ),
( "vectorise", Opt_Vectorise ),
-- Deprecated in favour of -XTemplateHaskell:
( "th", Opt_TH ),
( "th", Opt_TemplateHaskell ),
-- Deprecated in favour of -XForeignFunctionInterface:
( "fi", Opt_ForeignFunctionInterface ),
-- Deprecated in favour of -XForeignFunctionInterface:
......@@ -1193,7 +1193,7 @@ xFlags = [
( "RecursiveDo", Opt_RecursiveDo ),
( "Arrows", Opt_Arrows ),
( "PArr", Opt_PArr ),
( "TemplateHaskell", Opt_TH ),
( "TemplateHaskell", Opt_TemplateHaskell ),
( "Generics", Opt_Generics ),
-- On by default:
( "ImplicitPrelude", Opt_ImplicitPrelude ),
......
......@@ -1563,7 +1563,7 @@ mkPState buf loc flags =
.|. ffiBit `setBitIf` dopt Opt_ForeignFunctionInterface flags
.|. parrBit `setBitIf` dopt Opt_PArr flags
.|. arrowsBit `setBitIf` dopt Opt_Arrows flags
.|. thBit `setBitIf` dopt Opt_TH flags
.|. thBit `setBitIf` dopt Opt_TemplateHaskell flags
.|. ipBit `setBitIf` dopt Opt_ImplicitParams flags
.|. explicitForallBit `setBitIf` dopt Opt_ScopedTypeVariables flags
.|. explicitForallBit `setBitIf` dopt Opt_PolymorphicComponents flags
......
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