diff options
Diffstat (limited to 'src/Xmobar/Run')
| -rw-r--r-- | src/Xmobar/Run/Template.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |