projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
47ec580
)
Fix left-bias in ghci tab-completion code
author
Judah Jacobson
<judah.jacobson@gmail.com>
Wed, 14 Feb 2007 03:42:34 +0000
(
03:42
+0000)
committer
Judah Jacobson
<judah.jacobson@gmail.com>
Wed, 14 Feb 2007 03:42:34 +0000
(
03:42
+0000)
compiler/ghci/InteractiveUI.hs
patch
|
blob
|
history
diff --git
a/compiler/ghci/InteractiveUI.hs
b/compiler/ghci/InteractiveUI.hs
index
0f02282
..
573aaa0
100644
(file)
--- 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