summaryrefslogtreecommitdiffhomepage
path: root/src/Main.hs
diff options
context:
space:
mode:
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]