X-Git-Url: http://git.megacz.com/?p=wix.git;a=blobdiff_plain;f=src%2FDoc.lhs;h=4d28e6510fe16f894f1dab3990a8e48625dd06f2;hp=6d1baa73495afc6690b6a9a3a0dd1311607f3e98;hb=78e11871be7fa7677a0e3822b6e08b3beca1c4b7;hpb=0e25c5f2daeb3bca86501cb92cc785a5e698906e

diff --git a/src/Doc.lhs b/src/Doc.lhs
index 6d1baa7..4d28e65 100644
--- a/src/Doc.lhs
+++ b/src/Doc.lhs
@@ -46,7 +46,7 @@ data Text      = WS
 data Glyph     = Euro | CircleR | CircleC | TradeMark | ServiceMark
                | Emdash | Ellipsis | Cent | Daggar | DoubleDaggar
                | Clover | Flat | Sharp | Natural | CheckMark | XMark
-               | LeftArrow | DoubleLeftArrow | DoubleRightArrow
+               | LeftArrow | RightArrow | DoubleLeftArrow | DoubleRightArrow
                | DoubleLeftRightArrow | LeftRightArrow | Degree
 
 data Login     = Login String (Maybe String)
@@ -173,11 +173,11 @@ instance Show URL where
        (Just log) -> (show log)++"@")
      ++(show h)
      ++"/"
-     ++(urlEscape path)
+     ++path
      ++(case ref of
           Nothing -> ""
           (Just []) -> ""
-          (Just j) -> "#"++(urlEscape j))
+          (Just j) -> "#"++j)
 
 instance FromTree URL where
   fromTree (Tree "URL"   stuff                         _) = fromTrees stuff