[remove ANSI color codes from grin output since my editor does a better job syntax highlighting already
John Meacham <john@repetae.net>**20090701045120
 Ignore-this: 9f585e135ae59ca4ce8e17c20017a926
] hunk ./Grin/Show.hs 22
-import Doc.Attr
hunk ./Grin/Show.hs 33
-import qualified FlagDump as FD
hunk ./Grin/Show.hs 52
-attr = if dump FD.Html then html else ansi
hunk ./Grin/Show.hs 53
-bold :: Doc -> Doc
-bold = attrBold (attr oob)
-color n x = attrColor (attr oob) n x
-
---color :: Int -> Doc -> Doc
---color 1 doc = oob (attr [1]) <> doc <> oob (attr [0])
---color c doc = oob (attr [c]) <> doc <> oob (attr [39])
-
-operator = bold . text
-keyword = bold . text
+operator = text
+keyword = text
hunk ./Grin/Show.hs 56
-func = color "lightgreen" . text
-prim = color "red" . text
---func = text
---tag = color 92 . text
+func = text
+prim = text
hunk ./Grin/Show.hs 103
-prettyExp vl Call { expValue = Var v (TyCall fun _ _), expArgs = vs, expJump = jump}  =  vl <> f jump fun  <+> color "lightgreen" (pprint v) <+> hsep (map prettyVal vs) where
+prettyExp vl Call { expValue = Var v (TyCall fun _ _), expArgs = vs, expJump = jump}  =  vl <> f jump fun  <+> pprint v <+> hsep (map prettyVal vs) where