-- Completion
completeCmd, completeMacro, completeIdentifier, completeModule,
-- Completion
completeCmd, completeMacro, completeIdentifier, completeModule,
completeHomeModule, completeSetOptions, completeShowOptions,
completeHomeModuleOrFile, completeExpression
:: CompletionFunc GHCi
completeHomeModule, completeSetOptions, completeShowOptions,
completeHomeModuleOrFile, completeExpression
:: CompletionFunc GHCi
Just '-' -> do
(toplevs, exports) <- GHC.getContext
return $ map GHC.moduleName (nub (map fst exports) ++ toplevs)
Just '-' -> do
(toplevs, exports) <- GHC.getContext
return $ map GHC.moduleName (nub (map fst exports) ++ toplevs)
dflags <- GHC.getSessionDynFlags
let pkg_mods = allExposedModules dflags
loaded_mods <- liftM (map GHC.ms_mod_name) getLoadedModules
dflags <- GHC.getSessionDynFlags
let pkg_mods = allExposedModules dflags
loaded_mods <- liftM (map GHC.ms_mod_name) getLoadedModules