@@ -11,7 +11,7 @@ module Haskell.Ide.Engine.Ghc
11
11
setTypecheckedModule
12
12
, Diagnostics (.. )
13
13
, AdditionalErrs
14
- , cabalModuleGraphs
14
+ -- , cabalModuleGraphs
15
15
, makeRevRedirMapFunc
16
16
) where
17
17
@@ -22,7 +22,7 @@ import Control.Monad.IO.Class
22
22
import Control.Monad ( when )
23
23
import Data.IORef
24
24
import qualified Data.Map.Strict as Map
25
- import qualified Data.IntMap.Strict as IM
25
+ -- import qualified Data.IntMap.Strict as IM
26
26
import Data.Semigroup ((<>) , Semigroup )
27
27
import qualified Data.Set as Set
28
28
import qualified Data.Text as T
@@ -52,10 +52,10 @@ import qualified HIE.Bios.Ghc.Load as BIOS
52
52
53
53
import System.Directory
54
54
55
- import GhcProject.Types as GM
56
- import GhcMake ( moduleGraphNodes )
55
+ -- import GhcMake ( moduleGraphNodes )
57
56
import GhcMonad
58
57
58
+ -- ---------------------------------------------------------------------
59
59
60
60
newtype Diagnostics = Diagnostics (Map. Map NormalizedUri (Set. Set Diagnostic ))
61
61
deriving (Show , Eq )
@@ -290,6 +290,11 @@ setTypecheckedModule_load uri =
290
290
291
291
return $ IdeResultOk (Diagnostics diags2,errs)
292
292
293
+ {-
294
+
295
+ -- TODO: Come up with a reasonable approach to generate a module graph
296
+ -- for a given component or package.
297
+
293
298
-- TODO: make this work for all components
294
299
cabalModuleGraphs :: IdeGhcM [GM.GmModuleGraph]
295
300
cabalModuleGraphs = do
@@ -313,6 +318,7 @@ cabalModuleGraphs = do
313
318
]
314
319
]
315
320
pure [GmModuleGraph gmg]
321
+ -}
316
322
317
323
-- ---------------------------------------------------------------------
318
324
0 commit comments