diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-01-21 19:29:49 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-01-26 00:22:54 +0000 |
| commit | 95dc6dc070deac733d4a4a63a93e606a2e772a67 (patch) | |
| tree | 46f55fbc09230cca2c253b525694752598136f8a /libraries/template-haskell/Language/Haskell/TH/Lib.hs | |
| parent | 1a3f1eebf81952accb6340252816211c7d391300 (diff) | |
| download | haskell-95dc6dc070deac733d4a4a63a93e606a2e772a67.tar.gz | |
Template Haskell support for COMPLETE pragmas
Reviewers: RyanGlScott, austin, goldfire, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2997
GHC Trac Issues: #13098
Diffstat (limited to 'libraries/template-haskell/Language/Haskell/TH/Lib.hs')
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Lib.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Lib.hs b/libraries/template-haskell/Language/Haskell/TH/Lib.hs index 0aa76204b1..a3cbc8efb5 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Lib.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Lib.hs @@ -100,7 +100,7 @@ module Language.Haskell.TH.Lib ( ruleVar, typedRuleVar, valueAnnotation, typeAnnotation, moduleAnnotation, pragInlD, pragSpecD, pragSpecInlD, pragSpecInstD, pragRuleD, pragAnnD, - pragLineD, + pragLineD, pragCompleteD, -- **** Pattern Synonyms patSynD, patSynSigD, unidir, implBidir, explBidir, prefixPatSyn, @@ -557,6 +557,9 @@ pragAnnD target expr pragLineD :: Int -> String -> DecQ pragLineD line file = return $ PragmaD $ LineP line file +pragCompleteD :: [Name] -> Maybe Name -> DecQ +pragCompleteD cls mty = return $ PragmaD $ CompleteP cls mty + dataInstD :: CxtQ -> Name -> [TypeQ] -> Maybe Kind -> [ConQ] -> [DerivClauseQ] -> DecQ dataInstD ctxt tc tys ksig cons derivs = |