add NoUrgencyHook, for shachaf's sake

darcs-hash:20071110235857-78224-5b1417dbede07c8850509972e45dc93db106df62.gz

1 files changed, 6 insertions, 0 deletions

diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index 89bc3c2..a3350d3 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/XMonad/Hooks/UrgencyHook.hs
@@ -22,6 +22,7 @@ module XMonad.Hooks.UrgencyHook (
                                  withUrgencyHook,
                                  focusUrgent,
                                  readUrgents, withUrgents,
+                                 NoUrgencyHook(..),
                                  dzenUrgencyHook, DzenUrgencyHook(..),
                                  seconds
                                  ) where
@@ -144,6 +145,11 @@ withUrgencyHook theHook = ModifiedLayout $ WithUrgencyHook theHook
 class (Read h, Show h) => UrgencyHook h a where
     urgencyHook :: h -> a -> X ()
 
+data NoUrgencyHook = NoUrgencyHook deriving (Read, Show)
+
+instance UrgencyHook NoUrgencyHook Window where
+    urgencyHook _ _ = return ()
+
 data DzenUrgencyHook = DzenUrgencyHook { duration :: Int, args :: [String] }
     deriving (Read, Show)