[commit: ghc] master: Wibble to error message in Trac #10426 (b55ad1b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/b55ad1b33a30996a2ec4f85382f9c1cdca42e30f/ghc

>---------------------------------------------------------------

commit b55ad1b33a30996a2ec4f85382f9c1cdca42e30f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Dec 21 14:15:09 2015 +0000

    Wibble to error message in Trac #10426


>---------------------------------------------------------------

b55ad1b33a30996a2ec4f85382f9c1cdca42e30f
 compiler/parser/RdrHsSyn.hs                      | 2 +-
 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 222641b..e84f8af 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 9b03e11..263f927 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