Commit d0a47360 authored by judah's avatar judah

Fix left-bias in ghci tab-completion code

parent 47ec5807
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment