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/Check.hs
+++ b/Language/Haskell/GhcMod/Check.hs
@@ -28,7 +28,7 @@ check :: Options
      -> Cradle
      -> FilePath  -- ^ A target file
      -> Ghc [String]
-check opt cradle fileName = checkIt `gcatch` handleErrMsg
+check opt cradle fileName = checkIt `gcatch` handleErrMsg ls
  where
    checkIt = do
        readLog <- initializeFlagsWithCradle opt cradle options True
@@ -39,3 +39,4 @@ check opt cradle fileName = checkIt `gcatch` handleErrMsg
    options
      | expandSplice opt = "-w:"   : ghcOpts opt
      | otherwise        = "-Wall" : ghcOpts opt
+    ls = lineSeparator opt