mirror of
https://github.com/haskell/ghcide.git
synced 2024-12-17 07:01:41 +03:00
Don't pass the same argument twice (#1708)
This commit is contained in:
parent
e17aa608e3
commit
cb7d95edac
@ -133,14 +133,13 @@ getPackage dflags p =
|
||||
-- | Typecheck a single module using the supplied dependencies and packages.
|
||||
typecheckModule
|
||||
:: IdeOptions
|
||||
-> ParsedModule
|
||||
-> HscEnv
|
||||
-> [TcModuleResult]
|
||||
-> ParsedModule
|
||||
-> IO ([FileDiagnostic], Maybe TcModuleResult)
|
||||
typecheckModule opt mod packageState deps pm =
|
||||
typecheckModule opt packageState deps pm =
|
||||
fmap (either (, Nothing) (second Just)) $ Ex.runExceptT $
|
||||
runGhcSessionExcept opt (Just mod) packageState $
|
||||
runGhcSessionExcept opt (Just pm) packageState $
|
||||
catchSrcErrors $ do
|
||||
setupEnv deps
|
||||
(warnings, tcm) <- withWarnings "Typechecker" $ \tweak ->
|
||||
|
@ -288,7 +288,7 @@ typeCheckRule =
|
||||
setPriority PriorityTypeCheck
|
||||
packageState <- use_ GhcSession ""
|
||||
opt <- getOpts
|
||||
liftIO $ Compile.typecheckModule opt pm packageState tms pm
|
||||
liftIO $ Compile.typecheckModule opt packageState tms pm
|
||||
|
||||
|
||||
generateCoreRule :: Rules ()
|
||||
|
Loading…
Reference in New Issue
Block a user