From 52cce2201210c8191f3a137ccf21793810420e1f Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Tue, 28 May 2013 15:34:48 +0200 Subject: Fix haddock parse error in X.A.LinkWorkspaces Ignore-this: 42f05cf8ca9e6d1ffae3bd20666d87ab darcs-hash:20130528133448-1499c-ddd1e178089177ea2a5ae2c9e395210b11b1c43d.gz --- XMonad/Actions/LinkWorkspaces.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'XMonad/Actions') 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 -- cgit v1.2.3