diff options
| author | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:37:36 +0200 |
|---|---|---|
| committer | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:37:36 +0200 |
| commit | 406dda4afb748c567ef1e050198a93f0a87e3679 (patch) | |
| tree | 31252738719d6e5db657d8159d99e300b715d551 | |
| parent | c7f7a42fc57cb8b974ffcb161f0e0298153d2ec0 (diff) | |
| download | XMonadContrib-406dda4afb748c567ef1e050198a93f0a87e3679.tar.gz XMonadContrib-406dda4afb748c567ef1e050198a93f0a87e3679.tar.xz XMonadContrib-406dda4afb748c567ef1e050198a93f0a87e3679.zip | |
DirectoryPrompt.hs: add missing type signature.
darcs-hash:20070919213736-928c4-4d7b0b44ba6145557e4376f41e8ad6776f3e5538.gz
Diffstat (limited to '')
| -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 |