diff options
| author | jao <jao@gnu.org> | 2018-11-25 22:24:39 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-25 22:24:39 +0000 |
| commit | dba5bb8d946deca0872a17d98e3f1753c2160163 (patch) | |
| tree | 8cd1ea8b9ca1376deb47176ca162459fd990bd7c /src/Xmobar/Run/Template.hs | |
| parent | d1fa2bd306cf847311b3cf02e8f2de8bab8ee115 (diff) | |
| download | xmobar-dba5bb8d946deca0872a17d98e3f1753c2160163.tar.gz xmobar-dba5bb8d946deca0872a17d98e3f1753c2160163.tar.bz2 | |
Xmobar.App.Main
Diffstat (limited to 'src/Xmobar/Run/Template.hs')
| -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 |