Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion plugins/default/src/Ide/Plugin/Eval.hs
Original file line number Diff line number Diff line change
Expand Up @@ -176,7 +176,7 @@ runEvalCmd lsp state EvalParams {..} = withIndefiniteProgress lsp "Eval" Cancell
toNormalizedFilePath' $
fp

ms <-
(ms, _) <-
liftIO $
runAction "runEvalCmd.getModSummary" state $
use_ GetModSummary $
Expand Down
2 changes: 1 addition & 1 deletion plugins/default/src/Ide/Plugin/Retrie.hs
Original file line number Diff line number Diff line change
Expand Up @@ -360,7 +360,7 @@ callRetrie state session rewrites origin restrictToOriginatingFile = do
getCPPmodule t = do
nt <- toNormalizedFilePath' <$> makeAbsolute t
let getParsedModule f contents = do
modSummary <-
(modSummary, _) <-
useOrFail "GetModSummary" (CallRetrieInternalError "file not found") GetModSummary nt
let ms' =
modSummary
Expand Down
2 changes: 1 addition & 1 deletion plugins/tactics/src/Ide/Plugin/Tactic.hs
Original file line number Diff line number Diff line change
Expand Up @@ -247,7 +247,7 @@ judgementForHole state nfp range = do

-- Ok to use the stale 'ModIface', since all we need is its 'DynFlags'
-- which don't change very often.
(modsum, _) <- MaybeT $ runIde state $ useWithStale GetModSummaryWithoutTimestamps nfp
((modsum,_), _) <- MaybeT $ runIde state $ useWithStale GetModSummaryWithoutTimestamps nfp
let dflags = ms_hspp_opts modsum

(rss, goal) <- liftMaybe $ join $ listToMaybe $ M.elems $ flip M.mapWithKey (getAsts $ hieAst asts) $ \fs ast ->
Expand Down
4 changes: 1 addition & 3 deletions plugins/tactics/src/Ide/Plugin/Tactic/Types.hs
Original file line number Diff line number Diff line change
Expand Up @@ -32,6 +32,7 @@ import Data.Map (Map)
import Data.Set (Set)
import Data.Tree
import Development.IDE.GHC.Compat hiding (Node)
import Development.IDE.GHC.Orphans ()
import Development.IDE.Types.Location
import GHC.Generics
import Ide.Plugin.Tactic.Debug
Expand Down Expand Up @@ -65,9 +66,6 @@ instance Show Var where
instance Show TCvSubst where
show = unsafeRender

instance Show (LHsExpr GhcPs) where
show = unsafeRender

instance Show DataCon where
show = unsafeRender

Expand Down