[commit: ghc] wip/spj-wildcard-refactor: Missing annotations: unicode foralls (4bbdb64)

[git at git.haskell.org]

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

On branch  : wip/spj-wildcard-refactor
Link       : http://ghc.haskell.org/trac/ghc/changeset/4bbdb64539255ff8a2705078bea370fcbedbde11/ghc

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

commit 4bbdb64539255ff8a2705078bea370fcbedbde11
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Nov 23 13:19:32 2015 +0000

    Missing annotations: unicode foralls


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

4bbdb64539255ff8a2705078bea370fcbedbde11
 compiler/parser/Parser.y | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y
index 529bcbd..c6ce079 100644
--- a/compiler/parser/Parser.y
+++ b/compiler/parser/Parser.y
@@ -1559,7 +1559,7 @@ ctype   :: { LHsType RdrName }
                                            ams (sLL $1 $> $
                                                 HsForAllTy { hst_bndrs = $2
                                                            , hst_body = $4 })
-                                               [mj AnnForall $1, mj AnnDot $3] }
+                                               [mu AnnForall $1, mj AnnDot $3] }
         | context '=>' ctype          {% addAnnotation (gl $1) (toUnicodeAnn AnnDarrow $2) (gl $2)
                                          >> return (sLL $1 $> $
                                             HsQualTy { hst_ctxt = $1
@@ -1584,7 +1584,7 @@ ctypedoc :: { LHsType RdrName }
                                             ams (sLL $1 $> $
                                                  HsForAllTy { hst_bndrs = $2
                                                             , hst_body = $4 })
-                                                [mj AnnForall $1,mj AnnDot $3] }
+                                                [mu AnnForall $1,mj AnnDot $3] }
         | context '=>' ctypedoc       {% addAnnotation (gl $1) (toUnicodeAnn AnnDarrow $2) (gl $2)
                                          >> return (sLL $1 $> $
                                             HsQualTy { hst_ctxt = $1