diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,7 @@
+1.20.0 --> 1.20.1
+===================
+* Fix two test failures
+
 1.19.1 --> 1.20.0
 ===================
 
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.20.0
+Version:                1.20.1
 License:                BSD3
 License-File:           LICENSE
 Build-Type:             Simple
@@ -79,7 +79,8 @@
   type:                exitcode-stdio-1.0
   hs-source-dirs:      tests
   main-is:             Runner.hs
-  GHC-Options:         -threaded -Wall -O0
+  other-modules:       Extensions
+  GHC-Options:         -threaded -Wall
   Default-language:    Haskell2010
   Build-depends:       base < 5,
                        mtl,
diff --git a/tests/examples/ExplicitNamespaces4.hs.parser.golden b/tests/examples/ExplicitNamespaces4.hs.parser.golden
--- a/tests/examples/ExplicitNamespaces4.hs.parser.golden
+++ b/tests/examples/ExplicitNamespaces4.hs.parser.golden
@@ -165,7 +165,7 @@
                     "Foo")
                  [])
           ]
-          Nothing
+          []
       ]
   , []
   )
diff --git a/tests/examples/StarInType.hs.parser.golden b/tests/examples/StarInType.hs.parser.golden
--- a/tests/examples/StarInType.hs.parser.golden
+++ b/tests/examples/StarInType.hs.parser.golden
@@ -82,7 +82,7 @@
                     "B")
                  [])
           ]
-          Nothing
+          []
       , DataDecl
           SrcSpanInfo
             { srcInfoSpan = SrcSpan "tests/examples/StarInType.hs" 3 1 3 17
@@ -153,7 +153,7 @@
                     "Foo")
                  [])
           ]
-          Nothing
+          []
       , TypeDecl
           SrcSpanInfo
             { srcInfoSpan = SrcSpan "tests/examples/StarInType.hs" 4 1 4 15
@@ -194,17 +194,22 @@
                         , srcInfoPoints = []
                         }
                       "B")))
-             (UnQual
+             (UnpromotedName
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/StarInType.hs" 4 12 4 13
                   , srcInfoPoints = []
                   }
-                (Symbol
+                (UnQual
                    SrcSpanInfo
                      { srcInfoSpan = SrcSpan "tests/examples/StarInType.hs" 4 12 4 13
                      , srcInfoPoints = []
                      }
-                   "*"))
+                   (Symbol
+                      SrcSpanInfo
+                        { srcInfoSpan = SrcSpan "tests/examples/StarInType.hs" 4 12 4 13
+                        , srcInfoPoints = []
+                        }
+                      "*")))
              (TyCon
                 SrcSpanInfo
                   { srcInfoSpan = SrcSpan "tests/examples/StarInType.hs" 4 14 4 15