diff options
| -rw-r--r-- | compiler/GHC.hs | 4 | ||||
| -rw-r--r-- | compiler/GHC/Parser.y | 22 | ||||
| -rw-r--r-- | compiler/GHC/Parser/Annotation.hs | 5 | ||||
| -rw-r--r-- | utils/check-api-annotations/Main.hs | 1 |
4 files changed, 16 insertions, 16 deletions
diff --git a/compiler/GHC.hs b/compiler/GHC.hs index 22ce5fac18..834748a2b0 100644 --- a/compiler/GHC.hs +++ b/compiler/GHC.hs @@ -248,7 +248,7 @@ module GHC ( srcSpanStartCol, srcSpanEndCol, -- ** Located - GenLocated(..), Located, + GenLocated(..), Located, RealLocated, -- *** Constructing Located noLoc, mkGeneralLocated, @@ -274,7 +274,7 @@ module GHC ( parser, -- * API Annotations - ApiAnns(..),AnnKeywordId(..),AnnotationComment(..), + ApiAnns(..),AnnKeywordId(..),AnnotationComment(..), ApiAnnKey, getAnnotation, getAndRemoveAnnotation, getAnnotationComments, getAndRemoveAnnotationComments, unicodeAnn, diff --git a/compiler/GHC/Parser.y b/compiler/GHC/Parser.y index aa26c655b4..94b45489e7 100644 --- a/compiler/GHC/Parser.y +++ b/compiler/GHC/Parser.y @@ -863,17 +863,17 @@ header_top_importdecls :: { [LImportDecl GhcPs] } -- The Export List maybeexports :: { (Maybe (Located [LIE GhcPs])) } - : '(' exportlist ')' {% amsL (comb2 $1 $>) [mop $1,mcp $3] >> - return (Just (sLL $1 $> (fromOL $2))) } + : '(' exportlist ')' {% amsL (comb2 $1 $>) ([mop $1,mcp $3] ++ (fst $2)) >> + return (Just (sLL $1 $> (fromOL $ snd $2))) } | {- empty -} { Nothing } -exportlist :: { OrdList (LIE GhcPs) } - : exportlist1 { $1 } - | {- empty -} { nilOL } +exportlist :: { ([AddAnn], OrdList (LIE GhcPs)) } + : exportlist1 { ([], $1) } + | {- empty -} { ([], nilOL) } -- trailing comma: - | exportlist1 ',' { $1 } - | ',' { nilOL } + | exportlist1 ',' { ([mj AnnComma $2], $1) } + | ',' { ([mj AnnComma $1], nilOL) } exportlist1 :: { OrdList (LIE GhcPs) } : exportlist1 ',' export @@ -1019,11 +1019,11 @@ maybeimpspec :: { Located (Maybe (Bool, Located [LIE GhcPs])) } impspec :: { Located (Bool, Located [LIE GhcPs]) } : '(' exportlist ')' {% ams (sLL $1 $> (False, - sLL $1 $> $ fromOL $2)) - [mop $1,mcp $3] } + sLL $1 $> $ fromOL (snd $2))) + ([mop $1,mcp $3] ++ (fst $2)) } | 'hiding' '(' exportlist ')' {% ams (sLL $1 $> (True, - sLL $1 $> $ fromOL $3)) - [mj AnnHiding $1,mop $2,mcp $4] } + sLL $1 $> $ fromOL (snd $3))) + ([mj AnnHiding $1,mop $2,mcp $4] ++ (fst $3)) } ----------------------------------------------------------------------------- -- Fixity Declarations diff --git a/compiler/GHC/Parser/Annotation.hs b/compiler/GHC/Parser/Annotation.hs index 63cb42845d..0db029ba02 100644 --- a/compiler/GHC/Parser/Annotation.hs +++ b/compiler/GHC/Parser/Annotation.hs @@ -259,6 +259,8 @@ data AnnKeywordId | AnnLarrow -- ^ '<-' | AnnLarrowU -- ^ '<-', unicode variant | AnnLet + | AnnLolly -- ^ '#->' + | AnnLollyU -- ^ '#->', unicode variant | AnnMdo | AnnMinus -- ^ '-' | AnnModule @@ -291,8 +293,6 @@ data AnnKeywordId | AnnStatic -- ^ 'static' | AnnStock | AnnThen - | AnnThIdSplice -- ^ '$' - | AnnThIdTySplice -- ^ '$$' | AnnThTyQuote -- ^ double ''' | AnnTilde -- ^ '~' | AnnType @@ -364,6 +364,7 @@ unicodeAnn AnnOpenB = AnnOpenBU unicodeAnn AnnCloseB = AnnCloseBU unicodeAnn AnnOpenEQ = AnnOpenEQU unicodeAnn AnnCloseQ = AnnCloseQU +unicodeAnn AnnLolly = AnnLollyU unicodeAnn ann = ann diff --git a/utils/check-api-annotations/Main.hs b/utils/check-api-annotations/Main.hs index 366f7c7601..9358359f6d 100644 --- a/utils/check-api-annotations/Main.hs +++ b/utils/check-api-annotations/Main.hs @@ -5,7 +5,6 @@ import Data.List import GHC import GHC.Driver.Session import GHC.Utils.Outputable -import GHC.Parser.Annotation import GHC.Types.SrcLoc import System.Environment( getArgs ) import System.Exit |