summaryrefslogtreecommitdiffstats
path: root/lib/Phi/X11.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Phi/X11.hs')
-rw-r--r--lib/Phi/X11.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index cc53cea..c66fa54 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -191,7 +191,7 @@ handleMessage conn xcb m = do
return ()
handleEvent :: (Widget w s c) => Connection -> XCB.Connection -> SomeEvent -> PhiX w s c ()
-handleEvent conn xcb event = do
+handleEvent conn xcb event =
case (fromEvent event) of
Just e -> handlePropertyNotifyEvent conn xcb e
Nothing -> case (fromEvent event) of
@@ -253,6 +253,7 @@ handleConfigureNotifyEvent conn MkConfigureNotifyEvent { window_ConfigureNotifyE
sendMessage phi $ UpdateScreens $ map (panelScreenArea &&& panelWindow) panels'
sendMessage phi Repaint
+handleConfigureNotifyEvent _ _ = return ()
receiveEvents :: Phi -> Connection -> IO ()
receiveEvents phi conn = do