Handle X errors

This commit is contained in:
Matthias Schiffer 2011-07-15 23:54:05 +02:00
parent 5359238f79
commit 4419a111fd

View file

@ -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 []