@@ -1,22 +1,21 @@
11-- Copyright (c) 2019 Digital Asset (Switzerland) GmbH and/or its affiliates. All rights reserved.
22-- SPDX-License-Identifier: Apache-2.0
33
4+{-# LANGUAGE DuplicateRecordFields #-}
45
56module Main (main) where
67
78import Control.Monad (void)
89import qualified Data.Text as T
910import Development.IDE.Test
11+import Development.IDE.Test.Runfiles
1012import Language.Haskell.LSP.Test
1113import Language.Haskell.LSP.Types
1214import System.Environment.Blank (setEnv)
13−import System.FilePath
1415import System.IO.Extra
1516import Test.Tasty
1617import Test.Tasty.HUnit
1718
18−import DA.Bazel.Runfiles
19−
2019
2120main :: IO ()
2221main = defaultMain $ testGroup "HIE"
@@ -60,8 +59,7 @@ testSession name = testCase name . run
6059
6160run :: Session a -> IO a
6261run s = withTempDir $ \dir -> do
63− let hieCoreExePath = mainWorkspace </> exe "compiler/hie-core/hie-core-exe"
64− hieCoreExe <- locateRunfiles hieCoreExePath
62+ hieCoreExe <- locateHieCoreExecutable
6563 let cmd = unwords [hieCoreExe, "--lsp", "--cwd", dir]
6664 -- HIE calls getXgdDirectory which assumes that HOME is set.
6765 -- Only sets HOME if it wasn't already set.