From a1ac655c911f97c3a7bb455ad601426012eeb673 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 29 Nov 2009 04:26:50 +0100 Subject: Use lookup instead of find in A.PerWorkspaceKeys Ignore-this: 7ecb043df4317365ff3d25b17303eed8 darcs-hash:20091129032650-1499c-73cf78ec246d6c088d01e8c0eeae32fa3978f3dc.gz --- XMonad/Actions/PerWorkspaceKeys.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'XMonad/Actions') diff --git a/XMonad/Actions/PerWorkspaceKeys.hs b/XMonad/Actions/PerWorkspaceKeys.hs index dcf1a9b..20705e1 100644 --- a/XMonad/Actions/PerWorkspaceKeys.hs +++ b/XMonad/Actions/PerWorkspaceKeys.hs @@ -21,7 +21,6 @@ module XMonad.Actions.PerWorkspaceKeys ( import XMonad import XMonad.StackSet as S -import Data.List (find) -- $usage -- @@ -42,9 +41,9 @@ chooseAction f = withWindowSet (f . S.currentTag) -- If it isn't listed, then run default action (marked with empty string, \"\"), or do nothing if default isn't supplied. bindOn :: [(String, X())] -> X() bindOn bindings = chooseAction chooser where - chooser ws = case find ((ws==).fst) bindings of - Just (_, action) -> action - Nothing -> case find ((""==).fst) bindings of - Just (_, action) -> action + chooser ws = case lookup ws bindings of + Just action -> action + Nothing -> case lookup "" bindings of + Just action -> action Nothing -> return () -- cgit v1.2.3