From: Ian Lynagh <igloo@earth.li>
Date: Thu, 9 Sep 2010 15:43:48 +0000 (+0000)
Subject: Fix warnings
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=db604b9dd4cb26b317048d1c143693bbf8fa9727

Fix warnings
---

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index 7b3f6b9..f127735 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