diff options
author | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-12-09 15:44:15 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-09 16:38:46 -0500 |
commit | 5349d648fd7af3f50953e8594b3d148ab073017f (patch) | |
tree | 65d79db9557d9b3b2cf3d0b41afbe363e5eb1d6d /testsuite/tests/th/T10598_TH.hs | |
parent | d1df8d1c16b8f5bdf14ae41f514e38699f953054 (diff) | |
download | haskell-5349d648fd7af3f50953e8594b3d148ab073017f.tar.gz |
Rename TH constructors for deriving strategies
After talking to Richard, he and I concluded that choosing the rather
common name `Newtype` to represent the corresponding deriving strategy
in Template Haskell was a poor choice of name. I've opted to rename it
to something less common (`NewtypeStrategy`) while we still have time. I
also renamed the corrsponding datatype in the GHC internals so as to
match it.
Reviewers: austin, goldfire, hvr, bgamari
Reviewed By: bgamari
Subscribers: thomie, mpickering
Differential Revision: https://phabricator.haskell.org/D2814
GHC Trac Issues: #10598
Diffstat (limited to 'testsuite/tests/th/T10598_TH.hs')
-rw-r--r-- | testsuite/tests/th/T10598_TH.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/tests/th/T10598_TH.hs b/testsuite/tests/th/T10598_TH.hs index aab8bb3aa6..600880f887 100644 --- a/testsuite/tests/th/T10598_TH.hs +++ b/testsuite/tests/th/T10598_TH.hs @@ -31,12 +31,12 @@ $(do fooDataName <- newName "Foo" (normalC mkFooConName [ bangType (bang noSourceUnpackedness noSourceStrictness) [t| Int |] ]) - [ derivClause (Just Stock) [ [t| Eq |] ] - , derivClause (Just Anyclass) [ [t| C |] ] - , derivClause (Just Newtype) [ [t| Read |] ] ] - , standaloneDerivWithStrategyD (Just Stock) + [ derivClause (Just StockStrategy) [ [t| Eq |] ] + , derivClause (Just AnyclassStrategy) [ [t| C |] ] + , derivClause (Just NewtypeStrategy) [ [t| Read |] ] ] + , standaloneDerivWithStrategyD (Just StockStrategy) (cxt []) [t| Ord $(fooType) |] - , standaloneDerivWithStrategyD (Just Anyclass) + , standaloneDerivWithStrategyD (Just AnyclassStrategy) (cxt []) [t| D $(fooType) |] - , standaloneDerivWithStrategyD (Just Newtype) + , standaloneDerivWithStrategyD (Just NewtypeStrategy) (cxt []) [t| Show $(fooType) |] ]) |