[commit: ghc] master: Add API Annotation AnnSignature for backpack signature modules (67c2e07)

git at git.haskell.org git at git.haskell.org
Fri Feb 24 12:22:52 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/67c2e076c615acc91250e50fbb5f8c24961d4d9e/ghc

>---------------------------------------------------------------

commit 67c2e076c615acc91250e50fbb5f8c24961d4d9e
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Fri Feb 24 13:00:28 2017 +0200

    Add API Annotation AnnSignature for backpack signature modules


>---------------------------------------------------------------

67c2e076c615acc91250e50fbb5f8c24961d4d9e
 compiler/parser/ApiAnnotation.hs | 1 +
 compiler/parser/Parser.y         | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/parser/ApiAnnotation.hs b/compiler/parser/ApiAnnotation.hs
index b20f23f..77db0f1 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 fcc3707..92e3232 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



More information about the ghc-commits mailing list