diff options
| author | Devin Mullins <me@twifkak.com> | 2008-05-15 07:17:28 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2008-05-15 07:17:28 +0200 |
| commit | 0c7f388bcb7ebaabc16d7bd176b7a7b249ad5db5 (patch) | |
| tree | ade57a889aa35c74a172396b8ca701eb57f41df5 /XMonad/Layout/BoringWindows.hs | |
| parent | 5fd882c4150a5ea509a79b3417d2314782568965 (diff) | |
| download | XMonadContrib-0c7f388bcb7ebaabc16d7bd176b7a7b249ad5db5.tar.gz XMonadContrib-0c7f388bcb7ebaabc16d7bd176b7a7b249ad5db5.tar.xz XMonadContrib-0c7f388bcb7ebaabc16d7bd176b7a7b249ad5db5.zip | |
fix compile warnings in BoringWindows
darcs-hash:20080515051728-78224-9a945f90c2035888bcd7b1e245940e7ac28029d2.gz
Diffstat (limited to 'XMonad/Layout/BoringWindows.hs')
| -rw-r--r-- | XMonad/Layout/BoringWindows.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Layout/BoringWindows.hs b/XMonad/Layout/BoringWindows.hs index d66aa73..2629077 100644 --- a/XMonad/Layout/BoringWindows.hs +++ b/XMonad/Layout/BoringWindows.hs @@ -31,6 +31,7 @@ data BoringMessage = FocusUp | FocusDown | IsBoring Window | ClearBoring deriving ( Read, Show, Typeable ) instance Message BoringMessage +markBoring, clearBoring, focusUp, focusDown :: X () markBoring = withFocused (sendMessage . IsBoring) clearBoring = sendMessage ClearBoring focusUp = sendMessage FocusUp |