Skip to content

G
gargantext-ihaskell
Commit b8ac6a89 authored by Vaibhav Sagar's avatar Vaibhav Sagar
Browse files
Options

IHaskell.Eval.Lint: use unpackSrcSpan

parent 9caa54fd
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 2 deletions
src/IHaskell/Eval/Lint.hs
View file @ b8ac6a89
...@@ -8,7 +8,9 @@ import IHaskellPrelude ...@@ -8,7 +8,9 @@ import IHaskellPrelude
import Data.Maybe (mapMaybe) import Data.Maybe (mapMaybe)
import System.IO.Unsafe (unsafePerformIO) import System.IO.Unsafe (unsafePerformIO)
#if MIN_VERSION_hlint(3,0,0) #if MIN_VERSION_hlint(3,1,1)
import Language.Haskell.HLint
#elif MIN_VERSION_hlint(3,0,0)
import Language.Haskell.HLint import Language.Haskell.HLint
import SrcLoc (SrcSpan(..), srcSpanStartLine) import SrcLoc (SrcSpan(..), srcSpanStartLine)
#else #else
...@@ -203,7 +205,11 @@ showIdea idea = ...@@ -203,7 +205,11 @@ showIdea idea =
} }
where where
getSrcSpanStartLine span = getSrcSpanStartLine span =
#if MIN_VERSION_hlint(3,0,0) #if MIN_VERSION_hlint(3,1,1)
case unpackSrcSpan span of
Just (_, (startLine, _), _) -> startLine
Nothing -> 1
#elif MIN_VERSION_hlint(3,0,0)
case span of case span of
RealSrcSpan realSpan -> srcSpanStartLine realSpan RealSrcSpan realSpan -> srcSpanStartLine realSpan
UnhelpfulSpan _ -> 1 UnhelpfulSpan _ -> 1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment