diff options
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Common/Output.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Common/Output.hs b/src/Xmobar/Plugins/Monitors/Common/Output.hs index 8bb52cf..c41ef19 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Output.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Output.hs @@ -101,8 +101,8 @@ pSetColor config str s = Just c -> "<fc=" ++ c ++ ">" ++ str ++ "</fc>" pShowWithPadding :: MonitorConfig -> String -> String -pShowWithPadding MonitorConfig {..} s = - padString pMinWidth pMaxWidth pPadChars pPadRight pMaxWidthEllipsis s +pShowWithPadding MonitorConfig {..} = + padString pMinWidth pMaxWidth pPadChars pPadRight pMaxWidthEllipsis pFloatToPercent :: MonitorConfig -> Float -> String pFloatToPercent MonitorConfig{..} n = let p = showDigits 0 (n * 100) |