Replace missing runGhcEnv with evalGhcEnv

haskell · Oct 23, 2020 · b81ab15 · b81ab15
1 parent db5e788
commit b81ab15
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)