summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2017-02-24 13:00:28 +0200
committerAlan Zimmerman <alan.zimm@gmail.com>2017-02-24 14:22:16 +0200
commit67c2e076c615acc91250e50fbb5f8c24961d4d9e (patch)
tree0e454cfffecb71ccc1063bbb3d04c0db5a907304
parenta6e13d502ef46de854ec1babcd764ccce68c95e3 (diff)
downloadhaskell-67c2e076c615acc91250e50fbb5f8c24961d4d9e.tar.gz
Add API Annotation AnnSignature for backpack signature modules
-rw-r--r--compiler/parser/ApiAnnotation.hs1
-rw-r--r--compiler/parser/Parser.y2
2 files changed, 2 insertions, 1 deletions
diff --git a/compiler/parser/ApiAnnotation.hs b/compiler/parser/ApiAnnotation.hs
index b20f23f066..77db0f18d6 100644
--- a/compiler/parser/ApiAnnotation.hs
+++ b/compiler/parser/ApiAnnotation.hs
@@ -262,6 +262,7 @@ data AnnKeywordId
| AnnSafe
| AnnSemi -- ^ ';'
| AnnSimpleQuote -- ^ '''
+ | AnnSignature
| AnnStatic -- ^ 'static'
| AnnStock
| AnnThen
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y
index fcc3707e4f..92e32322b1 100644
--- a/compiler/parser/Parser.y
+++ b/compiler/parser/Parser.y
@@ -667,7 +667,7 @@ signature :: { Located (HsModule RdrName) }
ams (L loc (HsModule (Just $3) $5 (fst $ snd $7)
(snd $ snd $7) $4 $1)
)
- ([mj AnnModule $2, mj AnnWhere $6] ++ fst $7) }
+ ([mj AnnSignature $2, mj AnnWhere $6] ++ fst $7) }
module :: { Located (HsModule RdrName) }
: maybedocheader 'module' modid maybemodwarning maybeexports 'where' body