From dba5bb8d946deca0872a17d98e3f1753c2160163 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 25 Nov 2018 22:24:39 +0000
Subject: Xmobar.App.Main

---
 src/Xmobar/Run/Template.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Xmobar/Run')

diff --git a/src/Xmobar/Run/Template.hs b/src/Xmobar/Run/Template.hs
index a544724..5b1e2f2 100644
--- a/src/Xmobar/Run/Template.hs
+++ b/src/Xmobar/Run/Template.hs
@@ -46,7 +46,8 @@ templateCommandParser sepChar =
 templateParser :: String -> Parser [(String,String,String)]
 templateParser s = many $ templateStringParser s
 
--- | Actually runs the template parsers
+-- | Actually runs the template parsers over a (segment of) a template
+-- string, returning a list of runnables with their prefix and suffix.
 parseTemplate :: [Runnable] -> String -> String -> IO [(Runnable,String,String)]
 parseTemplate c sepChar s =
     do str <- case parse (templateParser sepChar) "" s of
-- 
cgit v1.2.3