From d0a4736028a4834f6ce643a0629c7b5f1f451d34 Mon Sep 17 00:00:00 2001 From: Judah Jacobson Date: Wed, 14 Feb 2007 03:42:34 +0000 Subject: [PATCH] Fix left-bias in ghci tab-completion code --- compiler/ghci/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4