diff options
author | Devin Mullins <me@twifkak.com> | 2007-11-12 19:48:57 +0100 |
---|---|---|
committer | Devin Mullins <me@twifkak.com> | 2007-11-12 19:48:57 +0100 |
commit | 1913f1f205ee631bd2c77dc90609e2b24e103bc6 (patch) | |
tree | a03d82577c970ef07fb094f024c98fd29793ace9 /XMonad/Hooks | |
parent | 64cf4f348e66c4513983b5fd06c257714079a9e0 (diff) | |
download | XMonadContrib-1913f1f205ee631bd2c77dc90609e2b24e103bc6.tar.gz XMonadContrib-1913f1f205ee631bd2c77dc90609e2b24e103bc6.tar.xz XMonadContrib-1913f1f205ee631bd2c77dc90609e2b24e103bc6.zip |
remove dead code
darcs-hash:20071112184857-78224-bbd65a006c4469349205e934d919480d60646160.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 |