From b81ab154670879d1621c1fe840a938d3f49f45e5 Mon Sep 17 00:00:00 2001 From: jneira Date: Fri, 23 Oct 2020 11:08:19 +0200 Subject: [PATCH] Replace missing runGhcEnv with evalGhcEnv --- plugins/default/src/Ide/Plugin/Retrie.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plugins/default/src/Ide/Plugin/Retrie.hs b/plugins/default/src/Ide/Plugin/Retrie.hs index 3e126c89be3..6f8456fb08d 100644 --- a/plugins/default/src/Ide/Plugin/Retrie.hs +++ b/plugins/default/src/Ide/Plugin/Retrie.hs @@ -367,8 +367,8 @@ callRetrie state session rewrites origin restrictToOriginatingFile = do Just (stringToStringBuffer contents) } logPriority (ideLogger state) Info $ T.pack $ "Parsing module: " <> t - (_, parsed) <- - runGhcEnv session (parseModule ms') + parsed <- + evalGhcEnv session (parseModule ms') `catch` \e -> throwIO (GHCParseError nt (show @SomeException e)) (fixities, parsed) <- fixFixities f (fixAnns parsed) return (fixities, parsed)