From 148f1083c45bc66112ff18d44f4d2a43d891c5ca Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Sun, 14 Jun 2020 18:08:03 +0530 Subject: Hlint fixes --- src/Xmobar/Plugins/Monitors/Common/Parsers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (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 99b4aaf..188b87d 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Parsers.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Parsers.hs @@ -54,7 +54,7 @@ runExportParser (x:xs) = do pureParseTemplate :: PureConfig -> TemplateInput -> IO String pureParseTemplate PureConfig{..} TemplateInput{..} = do let m = let expSnds :: [([(String, String, String)], String)] = zip (map snd temAllTemplate) temMonitorValues - in Map.fromList $ zip (map fst temAllTemplate) $ expSnds + in Map.fromList $ zip (map fst temAllTemplate) expSnds s <- minCombine m temInputTemplate let (n, s') = if pMaxTotalWidth > 0 && length s > pMaxTotalWidth then trimTo (pMaxTotalWidth - length pMaxTotalWidthEllipsis) "" s -- cgit v1.2.3