[print case arms of a single line on one line
John Meacham <john@repetae.net>**20060814143114] hunk ./Grin/Show.hs 73
+
+isOneLine (_ :>>= _) = False
+isOneLine Case {} = False
+isOneLine Let {} = False
+isOneLine MkCont {} = False
+isOneLine _ = True
+
hunk ./Grin/Show.hs 94
+    f (v :-> e) | isOneLine e = prettyVal v <+> operator "->" <+> prettyExp empty e
hunk ./Grin/Show.hs 98
-prettyExp vl Let { expDefs = defs, expBody = body } = vl <> text "let" <$> indent 2 (vsep $ map f defs) <$> text " in" <$> indent 2 (prettyExp empty body) where
+prettyExp vl Let { expDefs = defs, expBody = body } = vl <> keyword "let" <$> indent 4 (vsep $ map f defs) <$> text " in" <$> indent 2 (prettyExp empty body) where