Demo to show issue

Author: andys8

README.md

@@ -1 +1,37 @@
-# Demo: Jump to defintion issue
+# Demo: Jump to definition issue
+
+## Steps
+
+- Open `test/Spec.hs`
+- Jump to def with `testHelper` works
+- Jump to def with `libraryFunction` doesn't work
+
+## Known workaround
+
+`package.yaml` contains
+
+```yaml
+tests:
+  demo-hls-jump-to-definition-test:
+    source-dirs: test
+    dependencies: demo-hls-jump-to-definition
+```
+
+if `src` is additionally added as directory, it'll work.
+Downside: Higher compile times, redundant
+
+```yaml
+tests:
+  demo-hls-jump-to-definition-test:
+    source-dirs: test
+    dependencies: demo-hls-jump-to-definition
+```
+
+## Versions
+
+```
+haskell-language-server version: 0.9.0.0 (GHC: 8.8.3) (GIT hash: 6b6c405d14a29ab3d2e7dbb4e2f79229758d26ba)
+cabal:          3.2.0.0
+stack:          2.5.1
+ghc:            8.8.3
+```

Setup.hs

@@ -3,4 +3,4 @@ module Main where
 import Lib
 
 main :: IO ()
-main = someFunc
+main = libraryFunction

app/Main.hs

@@ -4,7 +4,7 @@ cabal-version: 1.12
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: c7959c36bf6aaa8424d22c1798f778516f3aa142da2756764ed808b597794177
+-- hash: 9da40c309046377d92b7f821cb757c7f0e7d46ee05cb86a09cb46aa3c804eb92
 
 name:           demo-hls-jump-to-definition
 version:        0.1.0.0
@@ -52,6 +52,7 @@ test-suite demo-hls-jump-to-definition-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs
   other-modules:
+      SpecHelper
       Paths_demo_hls_jump_to_definition
   hs-source-dirs:
       test

demo-hls-jump-to-definition.cabal

@@ -0,0 +1,8 @@
+cradle:
+  stack:
+    - path: "./app"
+      component: "demo-hls-jump-to-definition:exe:demo-hls-jump-to-definition-exe"
+    - path: "./test"
+      component: "demo-hls-jump-to-definition:test:demo-hls-jump-to-definition-test"
+    - path: "./src"
+      component: "demo-hls-jump-to-definition:lib"

hie.yaml

@@ -1,6 +1,6 @@
 module Lib
-    ( someFunc
+    ( libraryFunction
     ) where
 
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"
+libraryFunction :: IO ()
+libraryFunction = putStrLn "libraryFunction"

src/Lib.hs

@@ -1,2 +1,8 @@
+import           Lib                            ( libraryFunction )
+import           SpecHelper                     ( testHelper )
+
+
 main :: IO ()
-main = putStrLn "Test suite not yet implemented"
+main = do
+    testHelper -- Jump to defintion with testHelper is working
+    libraryFunction -- Jump to defintion with libraryFunction is not working

test/Spec.hs

@@ -0,0 +1,4 @@
+module SpecHelper where
+
+testHelper :: IO ()
+testHelper = putStrLn "testHelp"