aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDevin Mullins <me@twifkak.com>2007-11-12 19:48:57 +0100
committerDevin Mullins <me@twifkak.com>2007-11-12 19:48:57 +0100
commit1913f1f205ee631bd2c77dc90609e2b24e103bc6 (patch)
treea03d82577c970ef07fb094f024c98fd29793ace9 /XMonad
parent64cf4f348e66c4513983b5fd06c257714079a9e0 (diff)
downloadXMonadContrib-1913f1f205ee631bd2c77dc90609e2b24e103bc6.tar.gz
XMonadContrib-1913f1f205ee631bd2c77dc90609e2b24e103bc6.tar.xz
XMonadContrib-1913f1f205ee631bd2c77dc90609e2b24e103bc6.zip
remove dead code
darcs-hash:20071112184857-78224-bbd65a006c4469349205e934d919480d60646160.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Hooks/UrgencyHook.hs5
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