From 6df648a7ec73e4acdfa9bfd77990e0a4b0fe51fd Mon Sep 17 00:00:00 2001
From: adam <adam@megacz.com>
Date: Wed, 28 Jan 2009 14:05:19 -0800
Subject: [PATCH] use urlEscape more often in Doc.lhs

darcs-hash:20090128220519-5007d-fc7a87fe9bbc6dec70e5ada432fe3fd700996332.gz
---
 src/Doc.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Doc.lhs b/src/Doc.lhs
index f8336f5..4d28e65 100644
--- a/src/Doc.lhs
+++ b/src/Doc.lhs
@@ -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
-- 
1.7.10.4