From 1913f1f205ee631bd2c77dc90609e2b24e103bc6 Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Mon, 12 Nov 2007 19:48:57 +0100 Subject: remove dead code darcs-hash:20071112184857-78224-bbd65a006c4469349205e934d919480d60646160.gz --- XMonad/Hooks/UrgencyHook.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'XMonad') diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index e32fe8f..402faf9 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -154,9 +154,7 @@ urgencyLayoutHook hook = ModifiedLayout $ WithUrgencyHook hook -- | The class definition, and some pre-defined instances. class (Read h, Show h) => UrgencyHook h a where - urgencyHook, nonUrgencyHook :: h -> a -> X () - - nonUrgencyHook _ _ = return () + urgencyHook :: h -> a -> X () data NoUrgencyHook = NoUrgencyHook deriving (Read, Show) @@ -186,4 +184,3 @@ data StdoutUrgencyHook = StdoutUrgencyHook deriving (Read, Show) instance UrgencyHook StdoutUrgencyHook Window where urgencyHook _ w = io $ putStrLn $ "Urgent: " ++ show w - nonUrgencyHook _ w = io $ putStrLn $ "Not Urgent: " ++ show w -- cgit v1.2.3