Commit b5e939da authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Rename Opt_TH to Opt_TemplateHaskell to match the language name

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