From 28ea8d95137131e81c836ed2d446f8925518e85c Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Sat, 20 Jun 2020 21:39:02 +0530 Subject: Update based on feedback on the PR --- src/Xmobar/Plugins/Monitors/Common/Parsers.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Xmobar/Plugins/Monitors/Common/Parsers.hs') diff --git a/src/Xmobar/Plugins/Monitors/Common/Parsers.hs b/src/Xmobar/Plugins/Monitors/Common/Parsers.hs index 188b87d..db2a652 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Parsers.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Parsers.hs @@ -41,8 +41,8 @@ import qualified Data.Map as Map import System.Console.GetOpt (ArgOrder(Permute), OptDescr, getOpt) import Text.ParserCombinators.Parsec -runTemplateParser :: PureConfig -> IO [(String, String, String)] -runTemplateParser PureConfig{..} = runP templateParser pTemplate +runTemplateParser :: MonitorConfig -> IO [(String, String, String)] +runTemplateParser MonitorConfig{..} = runP templateParser pTemplate runExportParser :: [String] -> IO [(String, [(String, String,String)])] runExportParser [] = pure [] @@ -51,8 +51,8 @@ runExportParser (x:xs) = do rest <- runExportParser xs pure $ (x,s):rest -pureParseTemplate :: PureConfig -> TemplateInput -> IO String -pureParseTemplate PureConfig{..} TemplateInput{..} = +pureParseTemplate :: MonitorConfig -> TemplateInput -> IO String +pureParseTemplate MonitorConfig{..} TemplateInput{..} = do let m = let expSnds :: [([(String, String, String)], String)] = zip (map snd temAllTemplate) temMonitorValues in Map.fromList $ zip (map fst temAllTemplate) expSnds s <- minCombine m temInputTemplate -- cgit v1.2.3