diff options
Diffstat (limited to 'XMonad/Hooks/UrgencyHook.hs')
| -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 |