Merge pull request #298 from bicycle1885/escape
interpret backslash-escaped characters at the line boundary
This commit is contained in:
commit
e42c066035
@ -39,8 +39,9 @@ class ToString a where
|
|||||||
toPlain :: Options -> a -> Builder
|
toPlain :: Options -> a -> Builder
|
||||||
|
|
||||||
lineSep :: Options -> String
|
lineSep :: Options -> String
|
||||||
lineSep opt = lsep
|
lineSep opt = interpret lsep
|
||||||
where
|
where
|
||||||
|
interpret s = read $ "\"" ++ s ++ "\""
|
||||||
LineSeparator lsep = lineSeparator opt
|
LineSeparator lsep = lineSeparator opt
|
||||||
|
|
||||||
-- |
|
-- |
|
||||||
|
Loading…
Reference in New Issue
Block a user