Skip to content

Commit c608a0f

Browse files
committed
rebase fixes
1 parent 944794e commit c608a0f

File tree

2 files changed

+4
-12
lines changed

2 files changed

+4
-12
lines changed

plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs

Lines changed: 3 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -25,25 +25,20 @@ module Ide.Plugin.Eval.CodeLens (
2525
evalCommand,
2626
) where
2727

28+
import Data.Aeson (toJSON)
2829
import Control.Applicative (Alternative ((<|>)))
2930
import Control.Arrow (second, (>>>))
3031
import qualified Control.Exception as E
3132
import Control.Monad
3233
( void,
33-
when, guard
34+
when, guard,
3435
join
3536
)
3637
import Control.Monad.IO.Class (MonadIO (liftIO))
3738
import Control.Monad.Trans.Except
3839
( ExceptT (..),
3940
)
40-
import Data.Aeson
41-
( FromJSON,
42-
ToJSON,
43-
toJSON,
44-
)
4541
import Data.Char (isSpace)
46-
import Data.Either (isRight)
4742
import qualified Data.HashMap.Strict as HashMap
4843
import Data.List
4944
(dropWhileEnd,
@@ -104,13 +99,11 @@ import GHC
10499
load,
105100
runDecls,
106101
setContext,
107-
setInteractiveDynFlags,
108102
setLogAction,
109103
setSessionDynFlags,
110104
setTargets,
111105
typeKind,
112106
)
113-
import GHC.Generics (Generic)
114107
import qualified GHC.LanguageExtensions.Type as LangExt
115108
import GhcPlugins
116109
( DynFlags (..),
@@ -142,8 +135,7 @@ import Ide.Plugin.Eval.Code
142135
testRanges,
143136
)
144137
import Ide.Plugin.Eval.GHC
145-
( addExtension,
146-
addImport,
138+
( addImport,
147139
addPackages,
148140
hasPackage,
149141
isExpr,

plugins/hls-eval-plugin/src/Ide/Plugin/Eval/Types.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -38,7 +38,7 @@ import Data.String (IsString (..))
3838
import Development.IDE (Range)
3939
import GHC.Generics (Generic)
4040
import qualified Text.Megaparsec as P
41-
import Language.Haskell.LSP.Types (TextDocumentIdentifier)
41+
import Language.LSP.Types (TextDocumentIdentifier)
4242

4343
-- | A thing with a location attached.
4444
data Located l a = Located {location :: l, located :: a}

0 commit comments

Comments
 (0)