diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-02-24 13:00:28 +0200 |
---|---|---|
committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-02-24 14:22:16 +0200 |
commit | 67c2e076c615acc91250e50fbb5f8c24961d4d9e (patch) | |
tree | 0e454cfffecb71ccc1063bbb3d04c0db5a907304 | |
parent | a6e13d502ef46de854ec1babcd764ccce68c95e3 (diff) | |
download | haskell-67c2e076c615acc91250e50fbb5f8c24961d4d9e.tar.gz |
Add API Annotation AnnSignature for backpack signature modules
-rw-r--r-- | compiler/parser/ApiAnnotation.hs | 1 | ||||
-rw-r--r-- | compiler/parser/Parser.y | 2 |
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 |