Merge pull request #298 from bicycle1885/escape

interpret backslash-escaped characters at the line boundary
This commit is contained in:
Kazu Yamamoto 2014-08-01 14:54:44 +09:00
commit e42c066035

View File

@ -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
-- | -- |