summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Xmobar.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 7142a8d..7e67647 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -140,7 +140,8 @@ drawInWin str =
bgcolor <- io $ initColor dpy $ bgColor config
gc <- io $ createGC dpy win
--let's get the fonts
- fontst <- io $ loadQueryFont dpy (font config)
+ let lf c = loadQueryFont dpy (font c)
+ fontst <- io $ catch (lf config) (const $ lf defaultConfig)
io $ setFont dpy gc (fontFromFontStruct fontst)
-- create a pixmap to write to and fill it with a rectangle
p <- io $ createPixmap dpy win