We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0692049 commit cd44ab0Copy full SHA for cd44ab0
ghcide/src/Development/IDE/Core/Compile.hs
@@ -738,13 +738,11 @@ generateHieAsts hscEnv tcm =
738
top_ev_binds = tcg_ev_binds ts :: Util.Bag EvBind
739
insts = tcg_insts ts :: [ClsInst]
740
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
+
+ pure $ Just $
+ GHC.enrichHie (fake_splice_binds `Util.unionBags` real_binds) (tmrRenamed tcm) top_ev_binds insts tcs
744
where
745
dflags = hsc_dflags hscEnv
746
- run _ts = -- ts is only used in GHC 9.2
747
- id
748
749
spliceExpressions :: Splices -> [LHsExpr GhcTc]
750
spliceExpressions Splices{..} =
0 commit comments