From 070834fa567272fc5a4d72571eb9eec161949cc6 Mon Sep 17 00:00:00 2001
From: Tim Horton <tmhorton@gmail.com>
Date: Thu, 24 Dec 2009 04:32:17 +0100
Subject: X.P.Shell, filter empty string from PATH

Ignore-this: 1aec55452f917d0be2bff7fcf5937766

doesDirectoryExist returns True if given an empty string using ghc <

darcs-hash:20091224033217-1db5e-f87f8470346c2684d5b324048320e15f50f30377.gz
---
 XMonad/Prompt/Shell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Prompt/Shell.hs')

diff --git a/XMonad/Prompt/Shell.hs b/XMonad/Prompt/Shell.hs
index 574fe28..b7da249 100644
--- a/XMonad/Prompt/Shell.hs
+++ b/XMonad/Prompt/Shell.hs
@@ -99,7 +99,7 @@ commandCompletionFunction cmds str | '/' `elem` str = []
 getCommands :: IO [String]
 getCommands = do
     p  <- getEnv "PATH" `catch` const (return [])
-    let ds = split ':' p
+    let ds = filter (/= "") $ split ':' p
     es <- forM ds $ \d -> do
         exists <- doesDirectoryExist d
         if exists
-- 
cgit v1.2.3