From d9f831e606e447043239ae4d60e931405132ba37 Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Sun, 7 Oct 2007 20:59:15 +0200
Subject: Maybe? What Maybe? (rollback earlier dmenu change)

darcs-hash:20071007185915-78224-5dc94fbbbc960a853654321317e2b8ba54d8be2a.gz
---
 ShellPrompt.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'ShellPrompt.hs')

diff --git a/ShellPrompt.hs b/ShellPrompt.hs
index 14e855c..077fd8c 100644
--- a/ShellPrompt.hs
+++ b/ShellPrompt.hs
@@ -25,7 +25,6 @@ import XMonadContrib.Dmenu
 
 import Control.Monad
 import Data.List
-import Data.Maybe
 import System.Directory
 import System.IO
 import System.Environment
@@ -58,7 +57,7 @@ shellPrompt c = mkXPrompt Shell c getShellCompl spawn
 getShellCompl :: String -> IO [String]
 getShellCompl s 
     | s /= "" && last s /= ' ' = do
-  f <- fmap (lines . fromMaybe "") $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n")
+  f <- fmap lines $ runProcessWithInput "/bin/bash" [] ("compgen -A file " ++ s ++ "\n")
   c <- commandCompletionFunction s
   hPutStrLn stdout s
   return . map escape . sort . nub $ f ++ c
-- 
cgit v1.2.3