diff options
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 () |