[commit: ghc] master: cmm: Include braces on default branch as required by the parser (3335811)

[git at git.haskell.org]

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

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

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

commit 33358113175a66f8bfecd13f979aa7508e667271
Author: klebinger.andreas at gmx.at <klebinger.andreas at gmx.at>
Date:   Thu Jan 18 11:05:40 2018 -0500

    cmm: Include braces on default branch as required by the parser
    
    Test Plan: Looking at cmm-dump
    
    Reviewers: bgamari, simonmar
    
    Reviewed By: simonmar
    
    Subscribers: rwbarton, thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D4293


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

33358113175a66f8bfecd13f979aa7508e667271
 compiler/cmm/PprCmm.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs
index 3e63127..6a93ea8 100644
--- a/compiler/cmm/PprCmm.hs
+++ b/compiler/cmm/PprCmm.hs
@@ -252,8 +252,8 @@ pprNode node = pp_node <+> pp_debug
                             , ppr l <> semi
                             ]
             def | Just l <- mbdef = hsep
-                            [ text "default: goto"
-                            , ppr l <> semi
+                            [ text "default:"
+                            , braces (text "goto" <+> ppr l <> semi)
                             ]
                 | otherwise = empty