Skip to content

Commit cd44ab0

Browse files
jhrcekmichaelpj
authored andcommitted
More no-op code cleanup
1 parent 0692049 commit cd44ab0

File tree

1 file changed

+3
-5
lines changed

1 file changed

+3
-5
lines changed

ghcide/src/Development/IDE/Core/Compile.hs

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -738,13 +738,11 @@ generateHieAsts hscEnv tcm =
738738
top_ev_binds = tcg_ev_binds ts :: Util.Bag EvBind
739739
insts = tcg_insts ts :: [ClsInst]
740740
tcs = tcg_tcs ts :: [TyCon]
741-
run ts $
742-
pure $ Just $
743-
GHC.enrichHie (fake_splice_binds `Util.unionBags` real_binds) (tmrRenamed tcm) top_ev_binds insts tcs
741+
742+
pure $ Just $
743+
GHC.enrichHie (fake_splice_binds `Util.unionBags` real_binds) (tmrRenamed tcm) top_ev_binds insts tcs
744744
where
745745
dflags = hsc_dflags hscEnv
746-
run _ts = -- ts is only used in GHC 9.2
747-
id
748746

749747
spliceExpressions :: Splices -> [LHsExpr GhcTc]
750748
spliceExpressions Splices{..} =

0 commit comments

Comments
 (0)