1 files changed, 1 insertions, 3 deletions
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