From 4419a111fdc953541fdaf65f7bf66aefac63fe85 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Fri, 15 Jul 2011 23:54:05 +0200
Subject: Handle X errors

---
 lib/Phi/X11.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/Phi')

diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index 8d037a8..3beb47e 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -70,6 +70,8 @@ defaultXConfig = XConfig { phiXScreenInfo = getScreenInfo
 
 runPhi :: XConfig -> Panel.PanelConfig -> [Widget.Widget] -> IO ()
 runPhi xconfig config widgets = do
+  xSetErrorHandler
+  
   phi <- initPhi
   disp <- openDisplay []
   
-- 
cgit v1.2.3