(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