diff --git a/dist/build/Language/Haskell/Exts/InternalParser.hs b/dist/build/Language/Haskell/Exts/InternalParser.hs
--- a/dist/build/Language/Haskell/Exts/InternalParser.hs
+++ b/dist/build/Language/Haskell/Exts/InternalParser.hs
@@ -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
diff --git a/haskell-src-exts.cabal b/haskell-src-exts.cabal
--- a/haskell-src-exts.cabal
+++ b/haskell-src-exts.cabal
@@ -1,5 +1,5 @@
 Name:                   haskell-src-exts
-Version:                1.8.0
+Version:                1.8.1
 License:                BSD3
 License-File:           LICENSE
 Author:                 Niklas Broberg
diff --git a/src/Language/Haskell/Exts/Annotated/Syntax.hs b/src/Language/Haskell/Exts/Annotated/Syntax.hs
--- a/src/Language/Haskell/Exts/Annotated/Syntax.hs
+++ b/src/Language/Haskell/Exts/Annotated/Syntax.hs
@@ -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
diff --git a/src/Language/Haskell/Exts/InternalParser.ly b/src/Language/Haskell/Exts/InternalParser.ly
--- a/src/Language/Haskell/Exts/InternalParser.ly
+++ b/src/Language/Haskell/Exts/InternalParser.ly
@@ -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 }
diff --git a/src/Language/Haskell/Exts/Lexer.hs b/src/Language/Haskell/Exts/Lexer.hs
--- a/src/Language/Haskell/Exts/Lexer.hs
+++ b/src/Language/Haskell/Exts/Lexer.hs
@@ -298,6 +298,7 @@
  ( "source",            SOURCE          ),
  ( "deprecated",        DEPRECATED      ),
  ( "warning",           WARNING         ),
+ ( "ann",               ANN             ),
  ( "scc",               SCC             ),
  ( "generated",         GENERATED       ),
  ( "core",              CORE            ),