@@ -11,7 +11,7 @@ module Haskell.Ide.Engine.Ghc
1111 setTypecheckedModule
1212 , Diagnostics (.. )
1313 , AdditionalErrs
14- , cabalModuleGraphs
14+ -- , cabalModuleGraphs
1515 , makeRevRedirMapFunc
1616 ) where
1717
@@ -22,7 +22,7 @@ import Control.Monad.IO.Class
2222import Control.Monad ( when )
2323import Data.IORef
2424import qualified Data.Map.Strict as Map
25- import qualified Data.IntMap.Strict as IM
25+ -- import qualified Data.IntMap.Strict as IM
2626import Data.Semigroup ((<>) , Semigroup )
2727import qualified Data.Set as Set
2828import qualified Data.Text as T
@@ -52,10 +52,10 @@ import qualified HIE.Bios.Ghc.Load as BIOS
5252
5353import System.Directory
5454
55- import GhcProject.Types as GM
56- import GhcMake ( moduleGraphNodes )
55+ -- import GhcMake ( moduleGraphNodes )
5756import GhcMonad
5857
58+ -- ---------------------------------------------------------------------
5959
6060newtype Diagnostics = Diagnostics (Map. Map NormalizedUri (Set. Set Diagnostic ))
6161 deriving (Show , Eq )
@@ -290,6 +290,11 @@ setTypecheckedModule_load uri =
290290
291291 return $ IdeResultOk (Diagnostics diags2,errs)
292292
293+ {-
294+
295+ -- TODO: Come up with a reasonable approach to generate a module graph
296+ -- for a given component or package.
297+
293298-- TODO: make this work for all components
294299cabalModuleGraphs :: IdeGhcM [GM.GmModuleGraph]
295300cabalModuleGraphs = do
@@ -313,6 +318,7 @@ cabalModuleGraphs = do
313318 ]
314319 ]
315320 pure [GmModuleGraph gmg]
321+ -}
316322
317323-- ---------------------------------------------------------------------
318324
0 commit comments