From: Judah Jacobson <judah.jacobson@gmail.com>
Date: Wed, 14 Feb 2007 03:42:34 +0000 (+0000)
Subject: Fix left-bias in ghci tab-completion code
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d0a4736028a4834f6ce643a0629c7b5f1f451d34

Fix left-bias in ghci tab-completion code
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 0f02282..573aaa0 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -1358,7 +1358,7 @@ wrapCompleter fun w =  do
 getCommonPrefix :: [String] -> String
 getCommonPrefix [] = ""
 getCommonPrefix (s:ss) = foldl common s ss
-  where common s "" = s
+  where common s "" = ""
 	common "" s = ""
 	common (c:cs) (d:ds)
 	   | c == d = c : common cs ds