diff options
| -rw-r--r-- | Operations.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Operations.hs b/Operations.hs index e39fdac..977d224 100644 --- a/Operations.hs +++ b/Operations.hs @@ -335,10 +335,8 @@ setFocusX w = withWindowSet $ \ws -> do switchLayout :: X () switchLayout = layout (\(x, xs) -> let xs' = xs ++ [x] in (head xs', tail xs')) --- | Throw an (extensible) message value to the current Layout scheme, --- possibly modifying how we layout the windows, then refresh. --- --- TODO, this will refresh on Nothing. +-- | Throw a message to the current Layout possibly modifying how we +-- layout the windows, then refresh. -- sendMessage :: Message a => a -> X () sendMessage a = do n <- (W.tag . W.workspace . W.current) `fmap` gets windowset |