diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-21 14:15:09 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-23 07:46:37 +0000 |
| commit | b55ad1b33a30996a2ec4f85382f9c1cdca42e30f (patch) | |
| tree | cc0a57e330358d6fc3898976ab648d2ec0c1c01b | |
| parent | 48e06346805ab882a54088e01e5224111182f5df (diff) | |
| download | haskell-b55ad1b33a30996a2ec4f85382f9c1cdca42e30f.tar.gz | |
Wibble to error message in Trac #10426
| -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 |