File tree Expand file tree Collapse file tree 1 file changed +2
-4
lines changed Expand file tree Collapse file tree 1 file changed +2
-4
lines changed Original file line number Diff line number Diff line change @@ -11,7 +11,7 @@ import Data.Bool (bool)
11
11
import Data.List (isSuffixOf )
12
12
import Data.Maybe (fromMaybe )
13
13
import Data.Proxy (Proxy (.. ))
14
- import Development.IDE.GHC.Compat (GhcVersion (.. ), ghcVersion )
14
+ import Development.IDE.GHC.Compat (GhcVersion (.. ))
15
15
import Language.LSP.Protocol.Message (TCustomMessage (NotMess ),
16
16
TNotificationMessage (.. ))
17
17
import Language.LSP.Protocol.Types (Definition (.. ),
@@ -138,9 +138,7 @@ transitiveDependencyTest = testSessionWithExtraFiles "dependency" "goto transiti
138
138
hashableDefs <- getDefinitions asyncDoc (Position 246 11 )
139
139
-- The location of the definition of Hashable in
140
140
-- Data.Hashable.Class
141
- let expRange = if ghcVersion >= GHC90
142
- then Range (Position 198 14 ) (Position 198 22 )
143
- else Range (Position 198 0 ) (Position 235 31 )
141
+ let expRange = Range (Position 198 14 ) (Position 198 22 )
144
142
case hashableDefs of
145
143
InL (Definition (InR [Location uri actualRange])) ->
146
144
liftIO $ do
You can’t perform that action at this time.
0 commit comments