EPA: Use LocatedA for ModuleName

This allows us to use an Anchor with a DeltaPos in it when exact
printing.

12 files changed, 19 insertions, 19 deletions

diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
index 0fcb9122ed..566d319538 100644
--- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { T17544.hs:3:8-13 }
+    (SrcSpanAnn (EpAnnNotUsed) { T17544.hs:3:8-13 })
     {ModuleName: T17544}))
   (Nothing)
   []
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
index d294430cd4..41346ee437 100644
--- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { T17544_kw.hs:13:3-11 }
+    (SrcSpanAnn (EpAnnNotUsed) { T17544_kw.hs:13:3-11 })
     {ModuleName: T17544_kw}))
   (Nothing)
   []
diff --git a/testsuite/tests/module/mod185.stderr b/testsuite/tests/module/mod185.stderr
index 1463324978..663f963e99 100644
--- a/testsuite/tests/module/mod185.stderr
+++ b/testsuite/tests/module/mod185.stderr
@@ -48,7 +48,7 @@
        []))
      (NoSourceText)
      (L
-      { mod185.hs:3:8-14 }
+      (SrcSpanAnn (EpAnnNotUsed) { mod185.hs:3:8-14 })
       {ModuleName: Prelude})
      (NoRawPkgQual)
      (NotBoot)
diff --git a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
index 31c2d79256..72609565a8 100644
--- a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
+++ b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { DumpParsedAst.hs:5:8-20 }
+    (SrcSpanAnn (EpAnnNotUsed) { DumpParsedAst.hs:5:8-20 })
     {ModuleName: DumpParsedAst}))
   (Nothing)
   [(L
@@ -51,7 +51,7 @@
        []))
      (NoSourceText)
      (L
-      { DumpParsedAst.hs:6:8-16 }
+      (SrcSpanAnn (EpAnnNotUsed) { DumpParsedAst.hs:6:8-16 })
       {ModuleName: Data.Kind})
      (NoRawPkgQual)
      (NotBoot)
diff --git a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
index d8beda8fa4..b7ef9c2ce6 100644
--- a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
+++ b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
@@ -1261,7 +1261,7 @@
      (NoExtField)
      (NoSourceText)
      (L
-      { DumpRenamedAst.hs:5:8-21 }
+      (SrcSpanAnn (EpAnnNotUsed) { DumpRenamedAst.hs:5:8-21 })
       {ModuleName: Prelude})
      (NoPkgQual)
      (NotBoot)
@@ -1276,7 +1276,7 @@
      (NoExtField)
      (NoSourceText)
      (L
-      { DumpRenamedAst.hs:6:8-16 }
+      (SrcSpanAnn (EpAnnNotUsed) { DumpRenamedAst.hs:6:8-16 })
       {ModuleName: Data.Kind})
      (NoPkgQual)
      (NotBoot)
@@ -1291,7 +1291,7 @@
      (NoExtField)
      (NoSourceText)
      (L
-      { DumpRenamedAst.hs:8:8-16 }
+      (SrcSpanAnn (EpAnnNotUsed) { DumpRenamedAst.hs:8:8-16 })
       {ModuleName: Data.Kind})
      (NoPkgQual)
      (NotBoot)
diff --git a/testsuite/tests/parser/should_compile/DumpSemis.stderr b/testsuite/tests/parser/should_compile/DumpSemis.stderr
index 0f5b6f869d..1b59817f4d 100644
--- a/testsuite/tests/parser/should_compile/DumpSemis.stderr
+++ b/testsuite/tests/parser/should_compile/DumpSemis.stderr
@@ -41,7 +41,7 @@
    (1))
   (Just
    (L
-    { DumpSemis.hs:1:8-16 }
+    (SrcSpanAnn (EpAnnNotUsed) { DumpSemis.hs:1:8-16 })
     {ModuleName: DumpSemis}))
   (Nothing)
   [(L
@@ -74,7 +74,7 @@
        []))
      (NoSourceText)
      (L
-      { DumpSemis.hs:5:8-16 }
+      (SrcSpanAnn (EpAnnNotUsed) { DumpSemis.hs:5:8-16 })
       {ModuleName: Data.List})
      (NoRawPkgQual)
      (NotBoot)
@@ -113,7 +113,7 @@
        []))
      (NoSourceText)
      (L
-      { DumpSemis.hs:7:8-16 }
+      (SrcSpanAnn (EpAnnNotUsed) { DumpSemis.hs:7:8-16 })
       {ModuleName: Data.Kind})
      (NoRawPkgQual)
      (NotBoot)
diff --git a/testsuite/tests/parser/should_compile/KindSigs.stderr b/testsuite/tests/parser/should_compile/KindSigs.stderr
index bd9c0deaf0..3bd3964024 100644
--- a/testsuite/tests/parser/should_compile/KindSigs.stderr
+++ b/testsuite/tests/parser/should_compile/KindSigs.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { KindSigs.hs:6:8-15 }
+    (SrcSpanAnn (EpAnnNotUsed) { KindSigs.hs:6:8-15 })
     {ModuleName: KindSigs}))
   (Nothing)
   [(L
@@ -51,7 +51,7 @@
        []))
      (NoSourceText)
      (L
-      { KindSigs.hs:8:8-16 }
+      (SrcSpanAnn (EpAnnNotUsed) { KindSigs.hs:8:8-16 })
       {ModuleName: Data.Kind})
      (NoRawPkgQual)
      (NotBoot)
diff --git a/testsuite/tests/parser/should_compile/T14189.stderr b/testsuite/tests/parser/should_compile/T14189.stderr
index eeadfcc06d..6accce1c99 100644
--- a/testsuite/tests/parser/should_compile/T14189.stderr
+++ b/testsuite/tests/parser/should_compile/T14189.stderr
@@ -168,7 +168,7 @@
      (NoExtField)
      (NoSourceText)
      (L
-      { T14189.hs:1:8-13 }
+      (SrcSpanAnn (EpAnnNotUsed) { T14189.hs:1:8-13 })
       {ModuleName: Prelude})
      (NoPkgQual)
      (NotBoot)
diff --git a/testsuite/tests/parser/should_compile/T15323.stderr b/testsuite/tests/parser/should_compile/T15323.stderr
index 20867efede..0a2f60dd59 100644
--- a/testsuite/tests/parser/should_compile/T15323.stderr
+++ b/testsuite/tests/parser/should_compile/T15323.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { T15323.hs:3:8-13 }
+    (SrcSpanAnn (EpAnnNotUsed) { T15323.hs:3:8-13 })
     {ModuleName: T15323}))
   (Nothing)
   []
diff --git a/testsuite/tests/parser/should_compile/T20452.stderr b/testsuite/tests/parser/should_compile/T20452.stderr
index d1a11145fa..c5eded00e9 100644
--- a/testsuite/tests/parser/should_compile/T20452.stderr
+++ b/testsuite/tests/parser/should_compile/T20452.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { T20452.hs:3:8-13 }
+    (SrcSpanAnn (EpAnnNotUsed) { T20452.hs:3:8-13 })
     {ModuleName: T20452}))
   (Nothing)
   []
diff --git a/testsuite/tests/printer/T18791.stderr b/testsuite/tests/printer/T18791.stderr
index 90b3db958d..65fe422f4a 100644
--- a/testsuite/tests/printer/T18791.stderr
+++ b/testsuite/tests/printer/T18791.stderr
@@ -30,7 +30,7 @@
    (1))
   (Just
    (L
-    { T18791.hs:2:8-13 }
+    (SrcSpanAnn (EpAnnNotUsed) { T18791.hs:2:8-13 })
     {ModuleName: T18791}))
   (Nothing)
   []
diff --git a/testsuite/tests/printer/Test20297.stdout b/testsuite/tests/printer/Test20297.stdout
index 6340f6b183..615f265e76 100644
--- a/testsuite/tests/printer/Test20297.stdout
+++ b/testsuite/tests/printer/Test20297.stdout
@@ -37,7 +37,7 @@
    (1))
   (Just
    (L
-    { Test20297.hs:2:8-16 }
+    (SrcSpanAnn (EpAnnNotUsed) { Test20297.hs:2:8-16 })
     {ModuleName: Test20297}))
   (Nothing)
   []
@@ -383,7 +383,7 @@
    (1))
   (Just
    (L
-    { Test20297.ppr.hs:2:8-16 }
+    (SrcSpanAnn (EpAnnNotUsed) { Test20297.ppr.hs:2:8-16 })
     {ModuleName: Test20297}))
   (Nothing)
   []