File tree 7 files changed +11
-10
lines changed
ghcide/src/Development/IDE 7 files changed +11
-10
lines changed Original file line number Diff line number Diff line change @@ -56,8 +56,8 @@ import Development.IDE.Types.Location (NormalizedFilePath)
56
56
import qualified Development.IDE.Types.Location as Location
57
57
import qualified Ide.Logger as Logger
58
58
import Ide.Plugin.Error
59
- import Ide.Types
60
59
import Ide.PluginUtils (rangesOverlap )
60
+ import Ide.Types
61
61
import qualified Language.LSP.Protocol.Lens as LSP
62
62
import Language.LSP.Protocol.Message (SMethod (.. ))
63
63
import qualified Language.LSP.Protocol.Types as LSP
Original file line number Diff line number Diff line change @@ -24,7 +24,8 @@ import qualified Data.Map as M
24
24
import Data.Time.Clock.POSIX
25
25
import Data.Typeable
26
26
import Development.IDE.GHC.Compat hiding
27
- (HieFileResult , assert )
27
+ (HieFileResult ,
28
+ assert )
28
29
import Development.IDE.GHC.Compat.Util
29
30
import Development.IDE.GHC.CoreFile
30
31
import Development.IDE.GHC.Util
Original file line number Diff line number Diff line change @@ -14,7 +14,7 @@ module Development.IDE.GHC.Compat.Driver
14
14
15
15
#if MIN_VERSION_ghc(9,11,0)
16
16
17
- import GHC.Driver.Main (hscTypecheckRenameWithDiagnostics )
17
+ import GHC.Driver.Main (hscTypecheckRenameWithDiagnostics )
18
18
19
19
#else
20
20
Original file line number Diff line number Diff line change @@ -154,7 +154,7 @@ get_defn identifier = NonRec identifier templ
154
154
where
155
155
templ = case maybeUnfoldingTemplate (realIdUnfolding identifier) of
156
156
Nothing -> error " get_dfn: no unfolding template"
157
- Just x -> x
157
+ Just x -> x
158
158
159
159
toIfaceTopBndr1 :: Module -> Id -> IfaceId
160
160
toIfaceTopBndr1 mod identifier
Original file line number Diff line number Diff line change
1
+ {-# LANGUAGE CPP #-}
1
2
{-# LANGUAGE DeriveAnyClass #-}
2
3
{-# LANGUAGE OverloadedLabels #-}
3
4
{-# LANGUAGE TypeFamilies #-}
4
- {-# LANGUAGE CPP #-}
5
5
6
6
-- | An HLS plugin to provide code lenses for type signatures
7
7
module Development.IDE.Plugin.TypeLenses (
Original file line number Diff line number Diff line change @@ -36,9 +36,9 @@ import Language.LSP.Protocol.Types hiding
36
36
import Prelude hiding (mod )
37
37
38
38
-- compiler and infrastructure
39
+ import Development.IDE.Core.Compile (setNonHomeFCHook )
39
40
import Development.IDE.Core.PositionMapping
40
41
import Development.IDE.Core.RuleTypes
41
- import Development.IDE.Core.Compile (setNonHomeFCHook )
42
42
import Development.IDE.GHC.Compat
43
43
import qualified Development.IDE.GHC.Compat.Util as Util
44
44
import Development.IDE.GHC.Util (printOutputable )
Original file line number Diff line number Diff line change @@ -14,6 +14,8 @@ import Control.DeepSeq (force, rwhnf)
14
14
import Control.Exception (evaluate , mask , throwIO )
15
15
import Control.Monad.Extra (eitherM , join , mapMaybeM )
16
16
import Data.Either (fromRight )
17
+ import Data.IORef
18
+ import qualified Data.Map as M
17
19
import Data.Unique (Unique )
18
20
import qualified Data.Unique as Unique
19
21
import Development.IDE.GHC.Compat hiding (newUnique )
@@ -22,12 +24,10 @@ import Development.IDE.GHC.Error (catchSrcErrors)
22
24
import Development.IDE.GHC.Util (lookupPackageConfig )
23
25
import Development.IDE.Graph.Classes
24
26
import Development.IDE.Types.Exports (ExportsMap , createExportsMap )
27
+ import GHC.Driver.Env (hsc_all_home_unit_ids )
28
+ import Ide.PluginUtils (toAbsolute )
25
29
import OpenTelemetry.Eventlog (withSpan )
26
30
import System.Directory (makeAbsolute )
27
- import qualified Data.Map as M
28
- import Data.IORef
29
- import GHC.Driver.Env (hsc_all_home_unit_ids )
30
- import Ide.PluginUtils (toAbsolute )
31
31
32
32
33
33
-- | An 'HscEnv' with equality. Two values are considered equal
You can’t perform that action at this time.
0 commit comments