1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 8ad82b2..67badaa 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -271,9 +271,9 @@ printStrings :: Drawable -> GC -> XFont -> Position
 printStrings _ _ _ _ _ [] = return ()
 printStrings dr gc fontst offs a sl@((s,c,l):xs) = do
   r <- ask
-  let fromWidget (Text t) = t
-      fromWidget (Icon t) = t
-  (as,ds) <- io $ textExtents fontst (fromWidget s)
+  (as,ds) <- case s of
+                  Text t -> io $ textExtents fontst t
+                  Icon _ -> return (0, 0)
   let (conf,d)             = (config &&& display) r
       Rectangle _ _ wid ht = rect r
       totSLen              = foldr (\(_,_,len) -> (+) len) 0 sl