diff --git a/compiler/typecheck/TcPatSyn.lhs b/compiler/typecheck/TcPatSyn.lhs
index 00dfbe34a0ec700ea528e1bf02d9ec1da091e61b..fdbee92648d7b6e1c0ce2fea08ba8245ce8c89af 100644
--- a/compiler/typecheck/TcPatSyn.lhs
+++ b/compiler/typecheck/TcPatSyn.lhs
@@ -321,8 +321,8 @@ tcCheckPatSynPat = go
     go1   (PArrPat pats _)    = mapM_ go pats
     go1   (ListPat pats _ _)  = mapM_ go pats
     go1   (TuplePat pats _ _) = mapM_ go pats
-    go1   (LitPat lit)        = return ()
-    go1   (NPat n _ _)        = return ()
+    go1   LitPat{}            = return ()
+    go1   NPat{}              = return ()
     go1   (SigPatIn pat _)    = go pat
     go1   (ViewPat _ pat _)   = go pat
     go1 p@SplicePat{}         = thInPatSynErr p