diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-15 23:54:05 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-15 23:54:05 +0200 |
| commit | 4419a111fdc953541fdaf65f7bf66aefac63fe85 (patch) | |
| tree | 12d9bf7567f5e64d19fa614cc0f30fa375fdc95c | |
| parent | 5359238f79a9d07ef26ad6f4f1e42ac48ac3692f (diff) | |
| download | phi-4419a111fdc953541fdaf65f7bf66aefac63fe85.tar phi-4419a111fdc953541fdaf65f7bf66aefac63fe85.zip | |
Handle X errors
| -rw-r--r-- | lib/Phi/X11.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 [] |