[make showing of jhc core a bit more compact
John Meacham <john@repetae.net>**20080317152907] hunk ./E/Show.hs 26
+{-# NOINLINE render #-}
+{-# NOINLINE ePretty #-}
+{-# NOINLINE prettyE #-}
+{-# NOINLINE ePrettyEx #-}
hunk ./E/Show.hs 31
-render doc =  displayS (renderPretty 0.95 (optColumns options)  doc) ""
+render doc =  displayS (renderPretty 100.0 (optColumns options)  doc) ""
hunk ./E/Show.hs 195
-            return $ fixitize (L,(-10)) $ atom $ group $ align (( keyword "let"
-                                                                  </> (align $ sep (map (<> bc ';') ds))
-                                                                  </> (keyword "in" <+> align e) ))
+            return $ fixitize (L,(-10)) $ atom $ nest 4 (group ( keyword "let"
+                                                                  <$> (align $ sep (map (<> bc ';') ds))
+                                                                  <$> (keyword "in")) </> e )
hunk ./E/Show.hs 215
-                group ( nest 4 ( keyword "case" <> mbind <+> scrut <+> keyword "of" <$>  (align $ vcat (alts'))) )
+                group (nest 4 ( keyword "case" <> mbind <+> scrut <+> keyword "of" <$>  (align $ vcat (alts'))) )
hunk ./E/Show.hs 220
-                return $ nest 4 $ fill 10 ((unparse l) <+>  UC.rArrow </> (unparse e))
+                return $ fill 10 ((unparse l) <+>  UC.rArrow </> (unparse e))
hunk ./E/Show.hs 224
-            return $ atom $ nest 4 $ unparse t <+> retOp (char '=') </> unparse e
+            return $ atom $ unparse t <+> retOp (char '=') </> unparse e
hunk ./E/Show.hs 249
-{-# NOINLINE ePretty #-}