diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-09 15:43:48 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-09 15:43:48 +0000 |
| commit | db604b9dd4cb26b317048d1c143693bbf8fa9727 (patch) | |
| tree | 0d7823587adf2eb507a1a79ecbd8195cce807469 /ghc/InteractiveUI.hs | |
| parent | ddfe30b656d1211f77a1eef551ed475b4441eb6a (diff) | |
| download | haskell-db604b9dd4cb26b317048d1c143693bbf8fa9727.tar.gz | |
Fix warnings
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 7b3f6b9a59..f12773521d 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1666,6 +1666,7 @@ showLanguages = do -- Completion completeCmd, completeMacro, completeIdentifier, completeModule, + completeSetModule, completeHomeModule, completeSetOptions, completeShowOptions, completeHomeModuleOrFile, completeExpression :: CompletionFunc GHCi @@ -1716,7 +1717,7 @@ completeSetModule = wrapIdentCompleterWithModifier "+-" $ \m w -> do Just '-' -> do (toplevs, exports) <- GHC.getContext return $ map GHC.moduleName (nub (map fst exports) ++ toplevs) - otherwise -> do + _ -> do dflags <- GHC.getSessionDynFlags let pkg_mods = allExposedModules dflags loaded_mods <- liftM (map GHC.ms_mod_name) getLoadedModules |