From 7160bbed9870247268469330c18a5e7708eb12a3 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Sat, 2 Feb 2013 04:59:36 +0400
Subject: Implement icon caching

---
 src/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 5ef5db6..1438ab5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -26,6 +26,7 @@ import Config
 import XUtil
 
 import Data.List (intercalate)
+import qualified Data.Map as Map
 
 import Paths_xmobar (version)
 import Data.Version (showVersion)
@@ -60,7 +61,8 @@ main = do
   sig   <- setupSignalHandler
   vars  <- mapM (mapM $ startCommand sig) cls
   (r,w) <- createWin d fs conf
-  startLoop (XConf d r w fs conf) sig vars
+  let ic = Map.empty
+  startLoop (XConf d r w fs ic conf) sig vars
 
 -- | Splits the template in its parts
 splitTemplate :: Config -> [String]
-- 
cgit v1.2.3