diff options
Diffstat (limited to 'libraries/base/GHC/Show.lhs')
| -rw-r--r-- | libraries/base/GHC/Show.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/base/GHC/Show.lhs b/libraries/base/GHC/Show.lhs index 28348171ce..d5ed094646 100644 --- a/libraries/base/GHC/Show.lhs +++ b/libraries/base/GHC/Show.lhs @@ -386,6 +386,7 @@ showMultiLineString str where go ch s = case break (== '\n') s of (l, _:s'@(_:_)) -> (ch : showLitString l "\\n\\") : go '\\' s' + (l, "\n") -> [ch : showLitString l "\\n\""] (l, _) -> [ch : showLitString l "\""] isDec :: Char -> Bool |