Deleted redundant pattern match

2020-11-10 17:06:35 +08:00
parent dc6dd988bc
commit 33aad1b8de
1 changed files with 0 additions and 1 deletions
--- a/src/compiler/GF/Grammar/Canonical.hs
+++ b/src/compiler/GF/Grammar/Canonical.hs
@@ -265,7 +265,6 @@ instance PPA LinPattern where
      RecordPattern r -> block r
      TuplePattern ps -> "<"<>punctuate "," ps<>">"
      WildPattern     -> pp "_"                
-      _ -> parens p

 instance RhsSeparator LinPattern where rhsSep _ = pp "="