diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-06 12:54:58 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-06 12:54:58 +0200 |
commit | 42d5f27d32c74b29545ce0922e55407fa5ccc7fc (patch) | |
tree | 8af1f1049bcff9c717f21d95a337da70add5d0e0 /lib/Phi/X11.hs | |
parent | 499eaf95fb37b7ae14cf44c1f60f4a268ac10f52 (diff) | |
download | phi-42d5f27d32c74b29545ce0922e55407fa5ccc7fc.tar phi-42d5f27d32c74b29545ce0922e55407fa5ccc7fc.zip |
For now, print desktop names instead of numbers
Diffstat (limited to 'lib/Phi/X11.hs')
-rw-r--r-- | lib/Phi/X11.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index 139b40b..82809f2 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -16,6 +16,7 @@ import Data.Maybe import Data.Bits import Data.Char +import Control.Arrow ((&&&)) import Control.Concurrent import Control.Concurrent.MVar import Control.Monad.State.Strict @@ -224,7 +225,7 @@ handleEvent disp ConfigureEvent { ev_window = window } | window == defaultRootWi modify $ \state -> state { phiPanels = panels' } - sendMessage phi $ UpdateScreens $ map (\panel -> (panelScreenArea panel, panelWindow panel)) panels' + sendMessage phi $ UpdateScreens $ map (panelScreenArea &&& panelWindow) panels' sendMessage phi Repaint handleEvent _ _ = return () |