From 622130379cbdbdf8550e0c735a016120b11193ee Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 18 Feb 2022 11:03:14 +0100 Subject: [PATCH] Fix crash for non-LSP modes wrt #2627 --- ghcide/src/Development/IDE/Core/Rules.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ghcide/src/Development/IDE/Core/Rules.hs b/ghcide/src/Development/IDE/Core/Rules.hs index aa4b66e4f7..ba4bec4e50 100644 --- a/ghcide/src/Development/IDE/Core/Rules.hs +++ b/ghcide/src/Development/IDE/Core/Rules.hs @@ -839,9 +839,10 @@ instance IsIdeGlobal DisplayTHWarning getModSummaryRule :: Rules () getModSummaryRule = do - env <- lspEnv <$> getShakeExtrasRules - displayItOnce <- liftIO $ once $ LSP.runLspT (fromJust env) displayTHWarning - addIdeGlobal (DisplayTHWarning displayItOnce) + menv <- lspEnv <$> getShakeExtrasRules + forM_ menv $ \env -> do + displayItOnce <- liftIO $ once $ LSP.runLspT env displayTHWarning + addIdeGlobal (DisplayTHWarning displayItOnce) defineEarlyCutoff $ Rule $ \GetModSummary f -> do session' <- hscEnv <$> use_ GhcSession f