Use cabal-helper cradle instead implicit one

haskell · May 13, 2020 · 0aa97dd · 0aa97dd
1 parent 6ef5798
commit 0aa97dd
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/exe/Main.hs b/exe/Main.hs
@@ -61,6 +61,7 @@ import HIE.Bios.Environment                     (addCmdOpts, makeDynFlagsAbsolut
 import HIE.Bios.Types
 import HscTypes                                 (HscEnv(..), ic_dflags)
 import qualified Language.Haskell.LSP.Core as LSP
+import Ide.Cradle
 import Ide.Logger
 import Ide.Plugin
 import Ide.Plugin.Config
@@ -97,6 +98,7 @@ import Ide.Plugin.Ormolu                  as Ormolu
 import Ide.Plugin.Brittany                as Brittany
 #endif
 import Ide.Plugin.Pragmas                 as Pragmas
+import Data.Void (vacuous)
 
 
 -- ---------------------------------------------------------------------
@@ -437,7 +439,7 @@ loadSession dir = do
                 -- throwing an async exception
                 void $ forkIO $ do
                   putStrLn $ "Consulting the cradle for " <> show file
-                  cradle <- maybe (loadImplicitCradle $ addTrailingPathSeparator dir) loadCradle hieYaml
+                  cradle <- maybe (cabalHelperCradle cfp) (fmap vacuous . loadCradle) hieYaml
                   opts <- cradleToSessionOpts cradle cfp
                   print opts
                   (cs, res)<- session (hieYaml, toNormalizedFilePath' cfp, opts)