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
|
||||
|
||||
lineSep :: Options -> String
|
||||
lineSep opt = lsep
|
||||
lineSep opt = interpret lsep
|
||||
where
|
||||
interpret s = read $ "\"" ++ s ++ "\""
|
||||
LineSeparator lsep = lineSeparator opt
|
||||
|
||||
-- |
|
||||
|
Loading…
Reference in New Issue
Block a user