diff options
-rw-r--r-- | DirectoryPrompt.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/DirectoryPrompt.hs b/DirectoryPrompt.hs index 3be9c29..b010d4f 100644 --- a/DirectoryPrompt.hs +++ b/DirectoryPrompt.hs @@ -37,6 +37,7 @@ getDirCompl :: String -> IO [String] getDirCompl s = (filter notboring . lines) `fmap` runProcessWithInput "/bin/bash" [] ("compgen -A directory " ++ s ++ "\n") +notboring :: String -> Bool notboring ('.':'.':_) = True notboring ('.':_) = False notboring _ = True |