diff options
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/patsyn/should_fail/T10426.stderr | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index 222641b6f5..e84f8afc22 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -494,7 +494,7 @@ mkPatSynMatchGroup (L loc patsyn_name) (L _ decls) = wrongNumberErr loc = parseErrorSDoc loc $ - text "pattern synonym 'where' clause can not be empty." $$ + text "pattern synonym 'where' clause cannot be empty" $$ text "In the pattern synonym declaration for: " <+> ppr (patsyn_name) mkConDeclH98 :: Located RdrName -> Maybe [LHsTyVarBndr RdrName] diff --git a/testsuite/tests/patsyn/should_fail/T10426.stderr b/testsuite/tests/patsyn/should_fail/T10426.stderr index 9b03e11fc5..263f927679 100644 --- a/testsuite/tests/patsyn/should_fail/T10426.stderr +++ b/testsuite/tests/patsyn/should_fail/T10426.stderr @@ -1,4 +1,4 @@ T10426.hs:3:9: error: - pattern synonym 'where' clause can not be empty. + pattern synonym 'where' clause cannot be empty In the pattern synonym declaration for: Id |