diff options
| author | Krzysztof Kosciuszkiewicz <k.kosciuszkiewicz@gmail.com> | 2007-07-12 03:36:26 +0200 |
|---|---|---|
| committer | Krzysztof Kosciuszkiewicz <k.kosciuszkiewicz@gmail.com> | 2007-07-12 03:36:26 +0200 |
| commit | 2217463c0f52280835bf508dd5b768bff56f2b65 (patch) | |
| tree | aadf5f6247588d93e4a2f10fcedf2237e1014ecd /Plugins/Monitors/Mem.hs | |
| parent | 57b8cee954996394d0ba7212819ffe592d2148b4 (diff) | |
| download | xmobar-2217463c0f52280835bf508dd5b768bff56f2b65.tar.gz xmobar-2217463c0f52280835bf508dd5b768bff56f2b65.tar.bz2 | |
Get rid of floats in scientific notation.
Use 'showDigits n' instead of 'show . takeDigits n'. As this example shows
explicit precision specifications would be appreciated ;)
darcs-hash:20070712013626-ba08c-868a9d53ab1b8bc120d7c1a9634d3d8c7cb599d7.gz
Diffstat (limited to 'Plugins/Monitors/Mem.hs')
| -rw-r--r-- | Plugins/Monitors/Mem.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugins/Monitors/Mem.hs b/Plugins/Monitors/Mem.hs index 56639f2..2236256 100644 --- a/Plugins/Monitors/Mem.hs +++ b/Plugins/Monitors/Mem.hs @@ -37,7 +37,7 @@ parseMEM = formatMem :: [Float] -> Monitor [String] formatMem x = - do let f n = show (takeDigits 2 n) + do let f n = showDigits 2 n mapM (showWithColors f) x runMem :: [String] -> Monitor String |