fix compile warnings in BoringWindows

This commit is contained in:
Devin Mullins
2008-05-15 05:17:28 +00:00
parent 60f269f0b3
commit 1d93dfba51

View File

@@ -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