From 71db1f2ee20d384d4d9f0ce4f8acb79a86ff88c8 Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Sun, 11 Nov 2007 00:58:57 +0100
Subject: add NoUrgencyHook, for shachaf's sake

darcs-hash:20071110235857-78224-5b1417dbede07c8850509972e45dc93db106df62.gz
---
 XMonad/Hooks/UrgencyHook.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'XMonad')

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)
 
-- 
cgit v1.2.3