summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Parsers.hs2
-rw-r--r--src/Xmobar.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Parsers.hs b/src/Parsers.hs
index 1450a0e..baaa287 100644
--- a/src/Parsers.hs
+++ b/src/Parsers.hs
@@ -87,7 +87,7 @@ templateParser = many . templateStringParser
parseTemplate :: Config -> String -> IO [(Runnable,String,String)]
parseTemplate c s =
do str <- case parse (templateParser c) "" s of
- Left _ -> return [("","","")]
+ Left _ -> return [("", s, "")]
Right x -> return x
let cl = map alias (commands c)
m = Map.fromList $ zip cl (commands c)
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index cf912b7..eb7a1dd 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -120,7 +120,7 @@ eventLoop xc@(XConf d _ w fs c) vs = block $ do
startCommand :: (Runnable,String,String) -> IO (Maybe ThreadId, TVar String)
startCommand (com,s,ss)
| alias com == "" = do var <- atomically $ newTVar is
- atomically $ writeTVar var "Could not parse the template"
+ atomically $ writeTVar var (s ++ ss)
return (Nothing,var)
| otherwise = do var <- atomically $ newTVar is
let cb str = atomically $ writeTVar var (s ++ str ++ ss)