From d9f831e606e447043239ae4d60e931405132ba37 Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Sun, 7 Oct 2007 20:59:15 +0200 Subject: Maybe? What Maybe? (rollback earlier dmenu change) darcs-hash:20071007185915-78224-5dc94fbbbc960a853654321317e2b8ba54d8be2a.gz --- Commands.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Commands.hs') diff --git a/Commands.hs b/Commands.hs index dcab544..ccb8c55 100644 --- a/Commands.hs +++ b/Commands.hs @@ -102,9 +102,7 @@ runCommand :: [(String, X ())] -> X () runCommand cl = do let m = commandMap cl choice <- dmenu (M.keys m) - case choice of - Just selection -> fromMaybe (return ()) (M.lookup selection m) - Nothing -> return () + fromMaybe (return ()) (M.lookup choice m) runCommand' :: String -> X () runCommand' c = do -- cgit v1.2.3