[show binary operators as infix
John Meacham <john@repetae.net>**20070605012904] hunk ./Grin/Show.hs 102
+prettyExp vl Prim { expPrimitive = APrim (Op (Op.BinOp bo _ _) _) _, expArgs = [x,y] } = vl <> prettyVal x <+> char '`' <> tshow bo <> char '`' <+> prettyVal y