Commit db0a37b7 authored by Mart Lubbers's avatar Mart Lubbers

Revert ugly XML fix and update test script

parent 9c8b642b
......@@ -279,7 +279,6 @@ showLitString cs
// The sticking point is the recursive call to (showLitString cs), which
// it can't figure out would be ok with arity 2.
import StdMisc
showMultiLineString :: String -> [String]
// | Like 'showLitString' (expand escape characters using Haskell
// escape conventions), but
......@@ -288,12 +287,12 @@ showMultiLineString :: String -> [String]
// Example: @showMultiLineString "hello\ngoodbye\nblah"@
// returns @["\"hello\\n\\", "\\goodbye\n\\", "\\blah\""]@
showMultiLineString str
= undef//go '\"' str
// where
// go ch s = case split "\n" s of
// (l, [_:s`]) | size s > 0 -> {ch} +++ showLitString l "\\n\\" +++ go '\\' s`
// (l, "\n") -> {ch} +++ showLitString l "\\n\""
// (l, _) -> {ch} +++ showLitString l "\""
= go '\"' str
where
go ch s = case split "\n" s of
(l, [_:s`]) | size s > 0 -> {ch} +++ showLitString l "\\n\\" +++ go '\\' s`
(l, "\n") -> {ch} +++ showLitString l "\\n\""
(l, _) -> {ch} +++ showLitString l "\""
isDec :: Char -> Bool
isDec c = c >= '0' && c <= '9'
......
......@@ -135,9 +135,9 @@ import qualified Text.Unicode
import qualified Text.Unicode.Encodings.JS
import qualified Text.Unicode.Encodings.UTF8
import qualified Text.Unicode.UChar
import qualified Text.XML
//Errors that need to be fixed
import qualified Text.XML
import qualified Internet.HTTP.CGI
import qualified Database.SQL.RelationalMapping
......
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