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)
(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