interpret backslash-escaped characters at the line boundary

2014-07-30 12:03:58 +09:00 · 2014-07-30 12:03:58 +09:00 · 92651fbb26
commit 92651fbb26
parent 07e461ff82
1 changed files with 2 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Convert.hs
+++ b/Language/Haskell/GhcMod/Convert.hs
@ -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

 -- |