Skip to content

GitLab

Commit db604b9d authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix warnings

parent ddfe30b6
Hide whitespace changes
Inline Side-by-side
ghc/InteractiveUI.hs
View file @ db604b9d
...@@ -1666,6 +1666,7 @@ showLanguages = do ...@@ -1666,6 +1666,7 @@ showLanguages = do
-- Completion -- Completion
completeCmd, completeMacro, completeIdentifier, completeModule, completeCmd, completeMacro, completeIdentifier, completeModule,
completeSetModule,
completeHomeModule, completeSetOptions, completeShowOptions, completeHomeModule, completeSetOptions, completeShowOptions,
completeHomeModuleOrFile, completeExpression completeHomeModuleOrFile, completeExpression
:: CompletionFunc GHCi :: CompletionFunc GHCi
...@@ -1716,7 +1717,7 @@ completeSetModule = wrapIdentCompleterWithModifier "+-" $ \m w -> do ...@@ -1716,7 +1717,7 @@ completeSetModule = wrapIdentCompleterWithModifier "+-" $ \m w -> do
Just '-' -> do Just '-' -> do
(toplevs, exports) <- GHC.getContext (toplevs, exports) <- GHC.getContext
return $ map GHC.moduleName (nub (map fst exports) ++ toplevs) return $ map GHC.moduleName (nub (map fst exports) ++ toplevs)
otherwise -> do _ -> do
dflags <- GHC.getSessionDynFlags dflags <- GHC.getSessionDynFlags
let pkg_mods = allExposedModules dflags let pkg_mods = allExposedModules dflags
loaded_mods <- liftM (map GHC.ms_mod_name) getLoadedModules loaded_mods <- liftM (map GHC.ms_mod_name) getLoadedModules
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment