|
1 |
| -{-# LANGUAGE DeriveAnyClass #-} |
2 |
| -{-# LANGUAGE DerivingStrategies #-} |
3 |
| -{-# LANGUAGE DeriveGeneric #-} |
| 1 | +{-# LANGUAGE DeriveAnyClass #-} |
| 2 | +{-# LANGUAGE DeriveGeneric #-} |
| 3 | +{-# LANGUAGE DerivingStrategies #-} |
4 | 4 | {-# LANGUAGE DuplicateRecordFields #-}
|
5 |
| -{-# LANGUAGE LambdaCase #-} |
6 |
| -{-# LANGUAGE OverloadedStrings #-} |
7 |
| -{-# LANGUAGE ScopedTypeVariables #-} |
8 |
| -{-# LANGUAGE NamedFieldPuns #-} |
9 |
| -{-# LANGUAGE RecordWildCards #-} |
| 5 | +{-# LANGUAGE LambdaCase #-} |
| 6 | +{-# LANGUAGE NamedFieldPuns #-} |
| 7 | +{-# LANGUAGE OverloadedStrings #-} |
| 8 | +{-# LANGUAGE RecordWildCards #-} |
| 9 | +{-# LANGUAGE ScopedTypeVariables #-} |
10 | 10 | module Ide.Plugin.ImportLens (descriptor) where
|
11 |
| -import Control.Monad (forM) |
12 |
| -import Data.Aeson (ToJSON) |
13 |
| -import Data.Aeson (Value(Null)) |
14 |
| -import Data.Aeson.Types (FromJSON) |
15 |
| -import Data.IORef (readIORef) |
16 |
| -import Data.Map (Map) |
17 |
| -import qualified Data.Map.Strict as Map |
18 |
| -import Data.Maybe (fromMaybe, catMaybes) |
19 |
| -import qualified Data.Text as T |
20 |
| -import Development.IDE |
21 |
| -import Development.IDE.GHC.Compat |
22 |
| -import GHC.Generics (Generic) |
23 |
| -import Ide.Plugin |
24 |
| -import Ide.Types |
25 |
| -import Language.Haskell.LSP.Types |
26 |
| -import RnNames (getMinimalImports, findImportUsage) |
27 |
| -import TcRnMonad (initTcWithGbl) |
28 |
| -import TcRnTypes (TcGblEnv(tcg_used_gres)) |
29 |
| -import PrelNames (pRELUDE) |
30 |
| -import Data.Aeson (ToJSON(toJSON)) |
31 |
| -import qualified Data.HashMap.Strict as HashMap |
| 11 | +import Control.Monad (forM) |
| 12 | +import Data.Aeson (ToJSON) |
| 13 | +import Data.Aeson (Value (Null)) |
| 14 | +import Data.Aeson (ToJSON (toJSON)) |
| 15 | +import Data.Aeson.Types (FromJSON) |
| 16 | +import qualified Data.HashMap.Strict as HashMap |
| 17 | +import Data.IORef (readIORef) |
| 18 | +import Data.Map (Map) |
| 19 | +import qualified Data.Map.Strict as Map |
| 20 | +import Data.Maybe (catMaybes, fromMaybe) |
| 21 | +import qualified Data.Text as T |
| 22 | +import Development.IDE.Core.RuleTypes (GhcSessionDeps (GhcSessionDeps), |
| 23 | + TcModuleResult (tmrModule), |
| 24 | + TypeCheck (TypeCheck)) |
| 25 | +import Development.IDE.Core.Service (IdeState, runAction) |
| 26 | +import Development.IDE.Core.Shake (IdeAction, IdeState (..), |
| 27 | + runIdeAction, useWithStaleFast, |
| 28 | + use_) |
| 29 | +import Development.IDE.GHC.Compat |
| 30 | +import Development.IDE.GHC.Error (realSpan, realSrcSpanToRange) |
| 31 | +import Development.IDE.GHC.Util (hscEnv, prettyPrint) |
| 32 | +import GHC.Generics (Generic) |
| 33 | +import Ide.Plugin |
| 34 | +import Ide.Types |
| 35 | +import Language.Haskell.LSP.Types |
| 36 | +import PrelNames (pRELUDE) |
| 37 | +import RnNames (findImportUsage, |
| 38 | + getMinimalImports) |
| 39 | +import TcRnMonad (initTcWithGbl) |
| 40 | +import TcRnTypes (TcGblEnv (tcg_used_gres)) |
32 | 41 |
|
33 | 42 | importCommandId :: CommandId
|
34 | 43 | importCommandId = "ImportLensCommand"
|
|
0 commit comments