diff options
| author | Sibi Prabakaran <sibi@psibi.in> | 2020-06-21 13:22:10 +0530 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-06-23 16:38:20 +0100 |
| commit | 23171ad90be103f663a21c080ffe7fbb9d0be0f6 (patch) | |
| tree | a3f5b37b0011ce0dd487b325bb2086ba21f63658 /src | |
| parent | 28ea8d95137131e81c836ed2d446f8925518e85c (diff) | |
| download | xmobar-23171ad90be103f663a21c080ffe7fbb9d0be0f6.tar.gz xmobar-23171ad90be103f663a21c080ffe7fbb9d0be0f6.tar.bz2 | |
Fix hlint warnings
Diffstat (limited to 'src')
| -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) |