cosmetic changes.

This commit is contained in:
Kazu Yamamoto 2013-03-12 16:19:44 +09:00
parent 6102c2d1b6
commit 864666490a
2 changed files with 6 additions and 6 deletions

View File

@ -6,9 +6,9 @@ import Language.Haskell.HLint
import Types import Types
lintSyntax :: Options -> String -> IO String lintSyntax :: Options -> String -> IO String
lintSyntax opt file = pretty <$> lint opt file lintSyntax opt file = pack <$> lint opt file
where where
pretty = unlines . map (intercalate "\0" . lines) pack = unlines . map (intercalate "\0" . lines)
lint :: Options -> String -> IO [String] lint :: Options -> String -> IO [String]
lint opt file = map show <$> hlint ([file, "--quiet"] ++ hlintOpts opt) lint opt file = map show <$> hlint ([file, "--quiet"] ++ hlintOpts opt)