Commit 0861ba08 authored by bbr's avatar bbr
Browse files

fixed unicode problem in module XML

- exchanged umlaut with call to chr
- added XML to All_Libraries
parent fd389252
......@@ -54,7 +54,7 @@ module All_Libraries (
module HTML_Parser,
module URL,
--module WUI,
--module XML,
module XML,
--module XmlConv,
module Interactive,
......@@ -128,7 +128,7 @@ import HTML
import HTML_Parser
import URL
--import WUI
--import XML
import XML
--import XmlConv
......
......@@ -180,13 +180,13 @@ xmlUnquoteSpecial special cs
| special=="amp" = '&' : xmlUnquoteSpecials cs
| special=="quot" = '"' : xmlUnquoteSpecials cs
| special=="apos" = '\'' : xmlUnquoteSpecials cs
| special=="auml" = '\228' : xmlUnquoteSpecials cs
| special=="ouml" = '\246' : xmlUnquoteSpecials cs
| special=="uuml" = '\252' : xmlUnquoteSpecials cs
| special=="Auml" = '\196' : xmlUnquoteSpecials cs
| special=="Ouml" = '\214' : xmlUnquoteSpecials cs
| special=="Uuml" = '\220' : xmlUnquoteSpecials cs
| special=="szlig"= '\223' : xmlUnquoteSpecials cs
| special=="auml" = chr 228 : xmlUnquoteSpecials cs
| special=="ouml" = chr 246 : xmlUnquoteSpecials cs
| special=="uuml" = chr 252 : xmlUnquoteSpecials cs
| special=="Auml" = chr 196 : xmlUnquoteSpecials cs
| special=="Ouml" = chr 214 : xmlUnquoteSpecials cs
| special=="Uuml" = chr 220 : xmlUnquoteSpecials cs
| special=="szlig"= chr 223 : xmlUnquoteSpecials cs
| otherwise = unquoteUnicode special ++ xmlUnquoteSpecials cs
unquoteUnicode :: String -> String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment