git.iko.soy/ghcide
on master help sign in
Don't pass the same argument twice (#1708)
cb7d95eNeil Mitchell
src/Development/IDE/Functions/Compile.hs+2−3
compare with master
unifiedsplit
@@ -133,14 +133,13 @@ getPackage dflags p =
133-- | Typecheck a single module using the supplied dependencies and packages.
133-- | Typecheck a single module using the supplied dependencies and packages.
134typecheckModule
134typecheckModule
135 :: IdeOptions
135 :: IdeOptions
136− -> ParsedModule
137 -> HscEnv
136 -> HscEnv
138 -> [TcModuleResult]
137 -> [TcModuleResult]
139 -> ParsedModule
138 -> ParsedModule
140 -> IO ([FileDiagnostic], Maybe TcModuleResult)
139 -> IO ([FileDiagnostic], Maybe TcModuleResult)
141−typecheckModule opt mod packageState deps pm =
140+typecheckModule opt packageState deps pm =
142 fmap (either (, Nothing) (second Just)) $ Ex.runExceptT $
141 fmap (either (, Nothing) (second Just)) $ Ex.runExceptT $
143− runGhcSessionExcept opt (Just mod) packageState $
142+ runGhcSessionExcept opt (Just pm) packageState $
144 catchSrcErrors $ do
143 catchSrcErrors $ do
145 setupEnv deps
144 setupEnv deps
146 (warnings, tcm) <- withWarnings "Typechecker" $ \tweak ->
145 (warnings, tcm) <- withWarnings "Typechecker" $ \tweak ->
src/Development/IDE/State/Rules.hs+1−1
@@ -288,7 +288,7 @@ typeCheckRule =
288 setPriority PriorityTypeCheck
288 setPriority PriorityTypeCheck
289 packageState <- use_ GhcSession ""
289 packageState <- use_ GhcSession ""
290 opt <- getOpts
290 opt <- getOpts
291− liftIO $ Compile.typecheckModule opt pm packageState tms pm
291+ liftIO $ Compile.typecheckModule opt packageState tms pm
292
292
293
293
294generateCoreRule :: Rules ()
294generateCoreRule :: Rules ()