diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-10-28 14:54:20 -0400 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-11-01 21:12:56 -0400 |
| commit | 209baea8bc1f99b371b9ba49f5b81caa45bb34bf (patch) | |
| tree | e74d2b3250119fb9926fdc3fb53fc033af22193a /libraries/template-haskell/Language/Haskell/TH | |
| parent | 752b5e216963c0e8c06aa382b695ce2215869632 (diff) | |
| download | haskell-209baea8bc1f99b371b9ba49f5b81caa45bb34bf.tar.gz | |
Fix #9738, by handling {-# ANN ... #-} in DsMeta.
Diffstat (limited to 'libraries/template-haskell/Language/Haskell/TH')
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Lib.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Lib.hs b/libraries/template-haskell/Language/Haskell/TH/Lib.hs index a7e3c238f9..4d4f079719 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Lib.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Lib.hs @@ -658,6 +658,17 @@ ruleVar = return . RuleVar typedRuleVar :: Name -> TypeQ -> RuleBndrQ typedRuleVar n ty = ty >>= return . TypedRuleVar n +------------------------------------------------------------------------------- +-- * AnnTarget +valueAnnotation :: Name -> AnnTarget +valueAnnotation = ValueAnnotation + +typeAnnotation :: Name -> AnnTarget +typeAnnotation = TypeAnnotation + +moduleAnnotation :: AnnTarget +moduleAnnotation = ModuleAnnotation + -------------------------------------------------------------- -- * Useful helper function |