diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2013-05-28 15:34:48 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2013-05-28 15:34:48 +0200 |
| commit | 52cce2201210c8191f3a137ccf21793810420e1f (patch) | |
| tree | e7d2e0f9de54df84840d34716c56418fc1cb8b64 /XMonad | |
| parent | 6769de07f7e06ddf6eea728bd7072ebfe6eff017 (diff) | |
| download | XMonadContrib-52cce2201210c8191f3a137ccf21793810420e1f.tar.gz XMonadContrib-52cce2201210c8191f3a137ccf21793810420e1f.tar.xz XMonadContrib-52cce2201210c8191f3a137ccf21793810420e1f.zip | |
Fix haddock parse error in X.A.LinkWorkspaces
Ignore-this: 42f05cf8ca9e6d1ffae3bd20666d87ab
darcs-hash:20130528133448-1499c-ddd1e178089177ea2a5ae2c9e395210b11b1c43d.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/LinkWorkspaces.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Actions/LinkWorkspaces.hs b/XMonad/Actions/LinkWorkspaces.hs index 2163af3..7859953 100644 --- a/XMonad/Actions/LinkWorkspaces.hs +++ b/XMonad/Actions/LinkWorkspaces.hs @@ -40,6 +40,7 @@ import qualified Data.Map as M -- > import XMonad.Actions.LinkWorkspaces -- -- and add a function to print messages like +-- -- > message_command (S screen) = " dzen2 -p 1 -w 300 -xs " ++ show (screen + 1) -- > message_color_func c1 c2 msg = dzenColor c1 c2 msg -- > message screen c1 c2 msg = spawn $ "echo '" ++ (message_color_func c1 c2 msg) ++ "' | " ++ message_command screen |