diff options
| -rw-r--r-- | Xmobar.hs | 3 | 
1 files changed, 2 insertions, 1 deletions
| @@ -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  | 
