cleaning up APIs.

2014-04-21 14:04:58 +09:00
parent 1006cd4eec
commit b2c2d1a443
7 changed files with 57 additions and 69 deletions
--- a/Language/Haskell/GhcMod/Lint.hs
+++ b/Language/Haskell/GhcMod/Lint.hs
@@ -10,15 +10,8 @@ import Language.Haskell.HLint (hlint)
 lintSyntax :: Options
           -> FilePath  -- ^ A target file.
           -> IO String
-lintSyntax opt file = pack <$> lint hopts file
+lintSyntax opt file = pack . map show <$> hlint (file : "--quiet" : hopts)
  where
    LineSeparator lsep = lineSeparator opt
    pack = convert opt . map (intercalate lsep . lines)
    hopts = hlintOpts opt
-
-- | Checking syntax of a target file using hlint.
--   Warnings and errors are returned.
-lint :: [String]
-     -> FilePath    -- ^ A target file.
-     -> IO [String]
-lint hopts file = map show <$> hlint (file : "--quiet" : hopts)