X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FHtml.lhs;h=5784cb5a71b0d36f6561e005d91f3d431aa9c73f;hb=6df648a7ec73e4acdfa9bfd77990e0a4b0fe51fd;hp=74259f77291880423ad1ab3b0e9e6bbfc7b53d10;hpb=e6b058675419bdc7fb164809807837eb5e49c7dd;p=wix.git

diff --git a/src/Html.lhs b/src/Html.lhs
index 74259f7..5784cb5 100644
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -274,7 +274,7 @@ instance ToHtml Text where
  toHtml (GlyphText TradeMark)     = "™"
  toHtml (GlyphText ServiceMark)   = "™"
  toHtml (GlyphText Emdash)        = "—"
- toHtml (GlyphText Ellipsis)      = "…"
+ toHtml (GlyphText Ellipsis)      = "…"  -- &cdots;?
  toHtml (GlyphText Cent)          = "½"
  toHtml (GlyphText Daggar)        = "†"
  toHtml (GlyphText DoubleDaggar)  = "‡"
@@ -284,7 +284,8 @@ instance ToHtml Text where
  toHtml (GlyphText Sharp)         = "⋘"
  toHtml (GlyphText CheckMark)     = "✓"
  toHtml (GlyphText XMark)         = "✗"
- toHtml (GlyphText LeftArrow)            = "&#;"  -- FIXME
+ toHtml (GlyphText LeftArrow)            = "←"
+ toHtml (GlyphText RightArrow)           = "→"
  toHtml (GlyphText DoubleLeftArrow)      = "&#;"  -- FIXME
  toHtml (GlyphText DoubleRightArrow)     = "&#;"  -- FIXME
  toHtml (GlyphText DoubleLeftRightArrow) = "&#;"  -- FIXME
@@ -312,7 +313,7 @@ htmlEscapeChar '\'' = "'"
 htmlEscapeChar '\"' = """
 htmlEscapeChar c    = [c]
 
-pre x = "\n<div class=pre>"++ (pre' x) ++ "\n</div>\n"
+pre x = "\n<div class=pre style='white-space:nowrap'>"++ (pre' x) ++ "\n</div>\n"
  where
   pre' (' ':b)         = "&nbsp;"++(pre' b)
   pre' ('\n':b)        = "<br/>\n"++(pre' b)