diff options
Diffstat (limited to 'src/Plugins')
| -rw-r--r-- | src/Plugins/Monitors/Common.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Plugins/Monitors/Common.hs b/src/Plugins/Monitors/Common.hs index 5caaa85..973c5f9 100644 --- a/src/Plugins/Monitors/Common.hs +++ b/src/Plugins/Monitors/Common.hs @@ -306,14 +306,15 @@ parseTemplate l = let m = Map.fromList . zip e $ l parseTemplate' t m --- | Works like parseTemplate, but using the given template string. +-- | Parses the template given to it with a map of export values and combines +-- them parseTemplate' :: String -> Map.Map String String -> Monitor String parseTemplate' t m = do s <- io $ runP templateParser t combine m s --- | Given a finite "Map" and a parsed templatet produces the --- | resulting output string. +-- | Given a finite "Map" and a parsed template t produces the +-- | resulting output string as the output of the monitor. combine :: Map.Map String String -> [(String, String, String)] -> Monitor String combine _ [] = return [] combine m ((s,ts,ss):xs) = @@ -321,7 +322,7 @@ combine m ((s,ts,ss):xs) = let str = Map.findWithDefault err ts m err = "<" ++ ts ++ " not found!>" nstr <- parseTemplate' str m - return $ s ++ (if nstr == [] then str else nstr) ++ ss ++ next + return $ s ++ (if null nstr then str else nstr) ++ ss ++ next -- $strings |