PrettyPrint: Avoid trailing whitespace after empty cases

Author: Peaker

src/Language/ECMAScript3/PrettyPrint.hs

@@ -163,8 +163,8 @@ instance Pretty (VarDecl a) where
 instance Pretty (CaseClause a) where
   prettyPrint c = case c of
     CaseClause _ e ss ->
-      text "case" <+> ppExpression True e <> colon </> nest 2 (prettyPrint ss)
-    CaseDefault _ ss -> text "default:" </> nest 2 (prettyPrint ss)
+      text "case" <+> ppExpression True e <> colon <> softbreak <> nest 2 (prettyPrint ss)
+    CaseDefault _ ss -> text "default:" <> softbreak <> nest 2 (prettyPrint ss)
 
 instance Pretty InfixOp where
    prettyPrint op = text $ case op of