handle LeftArrow and Rightarrow properly in Html

[wix.git] / src / Html.lhs

diff --git a/src/Html.lhs b/src/Html.lhs
index 74259f7..1989e64 100644 (file)
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -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