haskell-src-exts 1.8.0 → 1.8.1

raw patch · 5 files changed

+6/−3 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• dist/build/Language/Haskell/Exts/InternalParser.hs +1/−1
• haskell-src-exts.cabal +1/−1
• src/Language/Haskell/Exts/Annotated/Syntax.hs +2/−0
• src/Language/Haskell/Exts/InternalParser.ly +1/−1
• src/Language/Haskell/Exts/Lexer.hs +1/−0

@@ -3060,7 +3060,7 @@ 	case happyOut76 happy_x_2 of { happy_var_2 -> 
 	case happyOutTok happy_x_3 of { (Loc happy_var_3 PragmaEnd) -> 
 	happyIn50
-		 (AnnPragma      (happy_var_1 <^^> happy_var_3) happy_var_2
+		 (AnnPragma      (happy_var_1 <^^> happy_var_3 <** [happy_var_1,happy_var_3]) happy_var_2
 	)}}}
 
 happyReduce_110 = happySpecReduce_1  39# happyReduction_110

@@ -1,5 +1,5 @@ Name:                   haskell-src-exts-Version:                1.8.0+Version:                1.8.1 License:                BSD3 License-File:           LICENSE Author:                 Niklas Broberg

@@ -1695,6 +1695,7 @@         SpecSig          l qn ts        -> l         SpecInlineSig    l b act qn ts  -> l         InstSig          l cx ih        -> l+        AnnPragma        l ann          -> l     amap f decl = case decl of         TypeDecl     l dh t      -> TypeDecl    (f l) dh t         TypeFamDecl  l dh mk     -> TypeFamDecl (f l) dh mk@@ -1725,6 +1726,7 @@         SpecSig          l qn ts         -> SpecSig (f l) qn ts         SpecInlineSig    l b act qn ts   -> SpecInlineSig (f l) b act qn ts         InstSig          l mcx ih        -> InstSig (f l) mcx ih+        AnnPragma        l ann           -> AnnPragma (f l) ann  instance Annotated Annotation where     ann (Ann     l n e) = l

@@ -590,7 +590,7 @@ >       | '{-# RULES'      rules      '#-}'     { RulePragmaDecl ($1 <^^> $3 <** [$1,$3]) $ reverse $2 } >       | '{-# DEPRECATED' warndeprs  '#-}'     { DeprPragmaDecl ($1 <^^> $3 <** ($1:snd $2++[$3])) $ reverse (fst $2) } >       | '{-# WARNING'    warndeprs  '#-}'     { WarnPragmaDecl ($1 <^^> $3 <** ($1:snd $2++[$3])) $ reverse (fst $2) }->       | '{-# ANN'        annotation '#-}'     { AnnPragma      ($1 <^^> $3) $2 }+>       | '{-# ANN'        annotation '#-}'     { AnnPragma      ($1 <^^> $3 <** [$1,$3]) $2 } >       | decl          { $1 }  > data_or_newtype :: { DataOrNew L }

@@ -298,6 +298,7 @@  ( "source",            SOURCE          ),  ( "deprecated",        DEPRECATED      ),  ( "warning",           WARNING         ),+ ( "ann",               ANN             ),  ( "scc",               SCC             ),  ( "generated",         GENERATED       ),  ( "core",              CORE            ),