adding LineSeparator.

2013-09-03 14:40:51 +09:00
parent cd3e4989e1
commit ed5ac820d6
5 changed files with 52 additions and 37 deletions
--- a/Language/Haskell/GhcMod/Lint.hs
+++ b/Language/Haskell/GhcMod/Lint.hs
@@ -12,7 +12,8 @@ lintSyntax :: Options
           -> IO String
 lintSyntax opt file = pack <$> lint opt file
  where
-    pack = unlines . map (intercalate "\0" . lines)
+    LineSeparator lsep = lineSeparator opt
+    pack = unlines . map (intercalate lsep . lines)

 lint :: Options
     -> FilePath    -- ^ A target file.