interpret backslash-escaped characters at the line boundary

This commit is contained in:
Kenta Sato 2014-07-30 12:03:58 +09:00
parent 07e461ff82
commit 92651fbb26

View File

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