From 57a31c348d79d964df5a7abce8f9e1276a78569a Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Sat, 27 Aug 2016 19:33:26 +0300
Subject: [PATCH] Use HLint3.hlint in Lint

Related: #826
---
 Language/Haskell/GhcMod/Lint.hs | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/Language/Haskell/GhcMod/Lint.hs b/Language/Haskell/GhcMod/Lint.hs
index 0ffe713..89c0fd5 100644
--- a/Language/Haskell/GhcMod/Lint.hs
+++ b/Language/Haskell/GhcMod/Lint.hs
@@ -9,8 +9,7 @@ import Language.Haskell.GhcMod.Monad
 import Language.Haskell.HLint3
 
 import Language.Haskell.GhcMod.Utils (withMappedFile)
-import Language.Haskell.Exts.SrcLoc (SrcLoc(..))
-import System.IO
+import Language.Haskell.Exts.SrcLoc (SrcSpan(..))
 
 -- | Checking syntax of a target file using hlint.
 --   Warnings and errors are returned.
@@ -20,15 +19,12 @@ lint :: IOish m
      -> GhcModT m String
 lint opt file = ghandle handler $
   withMappedFile file $ \tempfile -> do
-    (flags, classify, hint) <- liftIO $ argsSettings $ optLintHlintOpts opt
-    hSrc <- liftIO $ openFile tempfile ReadMode
-    liftIO $ hSetEncoding hSrc (encoding flags)
-    res <- liftIO $ parseModuleEx flags file =<< Just `fmap` hGetContents hSrc
-    case res of
-      Right m -> pack . map show $ filter ((/=Ignore) . ideaSeverity) $ applyHints classify hint [m]
-      Left ParseError{parseErrorLocation=loc, parseErrorMessage=err} ->
-        return $ showSrcLoc loc ++ ":Error:" ++ err ++ "\n"
+    res <- liftIO $ hlint $ "--quiet" : tempfile : optLintHlintOpts opt
+    pack . map (show . substFile file tempfile) $ res
   where
     pack = convert' . map init -- init drops the last \n.
     handler (SomeException e) = return $ checkErrorPrefix ++ show e ++ "\n"
-    showSrcLoc (SrcLoc f l c) = concat [f, ":", show l, ":", show c]
+    substFile orig temp idea
+      | srcSpanFilename (ideaSpan idea) == temp
+      = idea{ideaSpan=(ideaSpan idea){srcSpanFilename = orig}}
+    substFile _ _ idea = idea