X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FInteractiveUI.hs;h=1ac2df8bcbb97bbb624dec440681477422c2a0cb;hb=0a183bd0d5d9952699295fa9506de0df97392ef5;hp=33030bcfeafcffc2ca83d1ab96a9b054f5ab2732;hpb=f03a7287057767143926fdba55bac2325a47ca86;p=ghc-hetmet.git

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 33030bc..1ac2df8 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -136,8 +136,7 @@ builtin_commands = [
   ("type",	keepGoing typeOfExpr,		False, completeIdentifier),
   ("trace",     keepGoing traceCmd,             False, completeIdentifier), 
   ("undef",     keepGoing undefineMacro,	False, completeMacro),
-  ("unset",	keepGoing unsetOptions,		True,  completeSetOptions),
-  ("where",	keepGoing whereCmd,		True,  completeNone)
+  ("unset",	keepGoing unsetOptions,		True,  completeSetOptions)
   ]
 
 keepGoing :: (String -> GHCi ()) -> (String -> GHCi Bool)