Commit 1ccc9ffb authored by Andrew Gibiansky's avatar Andrew Gibiansky

Merge pull request #115 from edechter/fix_hspec

Complete path correctly on :load directive. Fixed bug (2) in #113.
parents c2a6887c 61d674cf
......@@ -129,7 +129,6 @@ completionType line loc target
= FilePath lineUpToCursor
| startswith ":l" stripped
= HsFilePath lineUpToCursor
-- Use target for other completions.
-- If it's empty, no completion.
| null target
......@@ -208,7 +207,7 @@ completePathWithExtensions extensions line =
completePathFilter (extensionIsOneOf extensions) acceptAll line ""
where
acceptAll = const True
extensionIsOneOf exts str = any (str `endswith`) exts
extensionIsOneOf exts str = any (\ext -> endswith ext str) exts
completePathFilter :: (String -> Bool) -- ^ File filter: test whether to include this file.
-> (String -> Bool) -- ^ Directory filter: test whether to include this directory.
......
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