Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6fb7bf8c9ba2a53d718a0d2a5f9e0f78cb7faf8f >--------------------------------------------------------------- commit 6fb7bf8c9ba2a53d718a0d2a5f9e0f78cb7faf8f Author: Simon Peyton Jones <[email protected]> Date: Wed Aug 15 14:23:22 2012 +0100 Fix Trac #7146, by displaying a "\n" in a multi-line string >--------------------------------------------------------------- GHC/Show.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/Show.lhs b/GHC/Show.lhs index e3148cd..859c2fe 100644 --- a/GHC/Show.lhs +++ b/GHC/Show.lhs @@ -390,12 +390,12 @@ showMultiLineString :: String -> [String] -- * break the string into multiple lines -- * wrap the entire thing in double quotes -- Example: @showMultiLineString "hello\ngoodbye\nblah"@ --- returns @["\"hello\\", "\\goodbye\\", "\\blah\""]@ +-- returns @["\"hello\\n\\", "\\goodbye\n\\", "\\blah\""]@ showMultiLineString str = go '\"' str where go ch s = case break (== '\n') s of - (l, _:s'@(_:_)) -> (ch : showLitString l "\\") : go '\\' s' + (l, _:s'@(_:_)) -> (ch : showLitString l "\\n\\") : go '\\' s' (l, _) -> [ch : showLitString l "\""] isDec :: Char -> Bool _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
