Skip to content

G
gargantext-ihaskell
Commit 7cb8a2ca authored by Andrew Gibiansky's avatar Andrew Gibiansky
Browse files
Options

Fixing formatting

parent e86272af
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/IHaskell/Eval/Completion.hs
View file @ 7cb8a2ca
...@@ -333,7 +333,7 @@ completePathFilter includeFile includeDirectory left right = GhcMonad.liftIO $ d ...@@ -333,7 +333,7 @@ completePathFilter includeFile includeDirectory left right = GhcMonad.liftIO $ d
-- everything else. If we wanted to keep original order, we could instead use -- everything else. If we wanted to keep original order, we could instead use
-- filter (`elem` (dirs ++ files)) completions -- filter (`elem` (dirs ++ files)) completions
suggestions <- mapM unDirExpand $ dirs ++ files suggestions <- mapM unDirExpand $ dirs ++ files
let isHidden str = isPrefixOf "." . last . split "/" $ let isHidden str = isPrefixOf "." . last . split "/" $
if "/" `isSuffixOf` str if "/" `isSuffixOf` str
then init str then init str
else str else str
......
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