summaryrefslogtreecommitdiffhomepage
path: root/src/Main.hs
diff options
context:
space:
mode:
authorAlexander Polakov <plhk@sdf.org>2013-02-02 04:59:36 +0400
committerAlexander Polakov <plhk@sdf.org>2013-02-03 15:41:09 +0400
commit7160bbed9870247268469330c18a5e7708eb12a3 (patch)
treee29110929981f40c825ee09f2786897b1d2d9670 /src/Main.hs
parent5c6cb344e0221b20b38ce1decf03029e9051417b (diff)
downloadxmobar-7160bbed9870247268469330c18a5e7708eb12a3.tar.gz
xmobar-7160bbed9870247268469330c18a5e7708eb12a3.tar.bz2
Implement icon caching
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs4
1 files changed, 3 insertions, 1 deletions
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]