Wrap LHsContext in Maybe in the GHC AST

If the context is missing it is captured as Nothing, rather than
putting a noLoc in the ParsedSource.

Updates haddock submodule

7 files changed, 27 insertions, 54 deletions

diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
index 2d9cede53c..e0f5a33d69 100644
--- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
@@ -16,8 +16,7 @@
      (ClassDecl
       (VirtualBraces
        (3))
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:5:7-8 }
        (Unqual
         {OccName: C1}))
@@ -80,8 +79,7 @@
      (ClassDecl
       (VirtualBraces
        (3))
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:9:7-8 }
        (Unqual
         {OccName: C2}))
@@ -141,8 +139,7 @@
      (ClassDecl
       (VirtualBraces
        (3))
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:13:7-8 }
        (Unqual
         {OccName: C3}))
@@ -205,8 +202,7 @@
      (ClassDecl
       (VirtualBraces
        (3))
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:17:7-8 }
        (Unqual
         {OccName: C4}))
@@ -293,8 +289,7 @@
      (NoExtField)
      (ClassDecl
       (ExplicitBraces)
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:22:7-8 }
        (Unqual
         {OccName: C5}))
@@ -389,8 +384,7 @@
            (HsDataDefn
             (NoExtField)
             (DataType)
-            ({ <no location info> }
-             [])
+            (Nothing)
             (Nothing)
             (Nothing)
             [({ T17544.hs:25:5-18 }
@@ -431,8 +425,7 @@
      (NoExtField)
      (ClassDecl
       (ExplicitBraces)
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:28:7-8 }
        (Unqual
         {OccName: C6}))
@@ -527,8 +520,7 @@
            (HsDataDefn
             (NoExtField)
             (DataType)
-            ({ <no location info> }
-             [])
+            (Nothing)
             (Nothing)
             (Nothing)
             [({ T17544.hs:31:5-18 }
@@ -569,8 +561,7 @@
      (NoExtField)
      (ClassDecl
       (ExplicitBraces)
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:34:7-8 }
        (Unqual
         {OccName: C7}))
@@ -665,8 +656,7 @@
            (HsDataDefn
             (NoExtField)
             (DataType)
-            ({ <no location info> }
-             [])
+            (Nothing)
             (Nothing)
             (Nothing)
             [({ T17544.hs:37:5-18 }
@@ -707,8 +697,7 @@
      (NoExtField)
      (ClassDecl
       (ExplicitBraces)
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:40:7-8 }
        (Unqual
         {OccName: C8}))
@@ -803,8 +792,7 @@
            (HsDataDefn
             (NoExtField)
             (DataType)
-            ({ <no location info> }
-             [])
+            (Nothing)
             (Nothing)
             (Nothing)
             [({ T17544.hs:43:5-18 }
@@ -845,8 +833,7 @@
      (NoExtField)
      (ClassDecl
       (ExplicitBraces)
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:46:7-8 }
        (Unqual
         {OccName: C9}))
@@ -941,8 +928,7 @@
            (HsDataDefn
             (NoExtField)
             (DataType)
-            ({ <no location info> }
-             [])
+            (Nothing)
             (Nothing)
             (Nothing)
             [({ T17544.hs:49:5-18 }
@@ -983,8 +969,7 @@
      (NoExtField)
      (ClassDecl
       (ExplicitBraces)
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544.hs:52:7-9 }
        (Unqual
         {OccName: C10}))
@@ -1079,8 +1064,7 @@
            (HsDataDefn
             (NoExtField)
             (DataType)
-            ({ <no location info> }
-             [])
+            (Nothing)
             (Nothing)
             (Nothing)
             [({ T17544.hs:55:5-20 }
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 b8cb9eedf2..2ebdf9dec9 100644
--- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
@@ -25,8 +25,7 @@
       (HsDataDefn
        (NoExtField)
        (DataType)
-       ({ <no location info> }
-        [])
+       (Nothing)
        (Nothing)
        (Nothing)
        [({ T17544_kw.hs:16:9-20 }
@@ -69,8 +68,7 @@
       (HsDataDefn
        (NoExtField)
        (NewType)
-       ({ <no location info> }
-        [])
+       (Nothing)
        (Nothing)
        (Nothing)
        [({ T17544_kw.hs:19:9-26 }
@@ -111,8 +109,7 @@
      (ClassDecl
       (VirtualBraces
        (5))
-      ({ <no location info> }
-       [])
+      (Nothing)
       ({ T17544_kw.hs:21:7-9 }
        (Unqual
         {OccName: Cls}))
diff --git a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
index 262d01fc4f..f19d67a1b2 100644
--- a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
+++ b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
@@ -37,8 +37,7 @@
       (HsDataDefn
        (NoExtField)
        (DataType)
-       ({ <no location info> }
-        [])
+       (Nothing)
        (Nothing)
        (Nothing)
        [({ DumpParsedAst.hs:7:14-17 }
@@ -243,8 +242,7 @@
       (HsDataDefn
        (NoExtField)
        (DataType)
-       ({ <no location info> }
-        [])
+       (Nothing)
        (Nothing)
        (Nothing)
        [({ DumpParsedAst.hs:14:21-29 }
diff --git a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
index 61c89188c2..57d4f3fcf7 100644
--- a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
+++ b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
@@ -73,8 +73,7 @@
         (HsDataDefn
          (NoExtField)
          (DataType)
-         ({ <no location info> }
-          [])
+         (Nothing)
          (Nothing)
          (Nothing)
          [({ DumpRenamedAst.hs:9:14-17 }
@@ -328,8 +327,7 @@
           (HsDataDefn
            (NoExtField)
            (NewType)
-           ({ <no location info> }
-            [])
+           (Nothing)
            (Nothing)
            (Just
             ({ DumpRenamedAst.hs:18:42-60 }
@@ -488,8 +486,7 @@
         (HsDataDefn
          (NoExtField)
          (DataType)
-         ({ <no location info> }
-          [])
+         (Nothing)
          (Nothing)
          (Nothing)
          [({ DumpRenamedAst.hs:21:21-29 }
diff --git a/testsuite/tests/parser/should_compile/T14189.stderr b/testsuite/tests/parser/should_compile/T14189.stderr
index cee8ecdbf9..516850592c 100644
--- a/testsuite/tests/parser/should_compile/T14189.stderr
+++ b/testsuite/tests/parser/should_compile/T14189.stderr
@@ -27,8 +27,7 @@
         (HsDataDefn
          (NoExtField)
          (DataType)
-         ({ <no location info> }
-          [])
+         (Nothing)
          (Nothing)
          (Nothing)
          [({ T14189.hs:6:15-20 }
diff --git a/testsuite/tests/parser/should_compile/T15323.stderr b/testsuite/tests/parser/should_compile/T15323.stderr
index ae19f0a174..91f85727f6 100644
--- a/testsuite/tests/parser/should_compile/T15323.stderr
+++ b/testsuite/tests/parser/should_compile/T15323.stderr
@@ -31,8 +31,7 @@
       (HsDataDefn
        (NoExtField)
        (DataType)
-       ({ <no location info> }
-        [])
+       (Nothing)
        (Nothing)
        (Nothing)
        [({ T15323.hs:6:5-54 }
diff --git a/testsuite/tests/printer/T18791.stderr b/testsuite/tests/printer/T18791.stderr
index af6d93019c..c944f648dc 100644
--- a/testsuite/tests/printer/T18791.stderr
+++ b/testsuite/tests/printer/T18791.stderr
@@ -25,8 +25,7 @@
       (HsDataDefn
        (NoExtField)
        (DataType)
-       ({ <no location info> }
-        [])
+       (Nothing)
        (Nothing)
        (Nothing)
        [({ T18791.hs:5:3-17 }