summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Parsers.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-28 02:45:00 +0000
committerjao <jao@gnu.org>2022-01-29 06:42:29 +0000
commita5c35003c88c4b050e56cfb5d93a0e0d77d9c223 (patch)
tree6d8ba586dec5cb5154291cebc52658ac119eb7b6 /src/Xmobar/X11/Parsers.hs
parent1e2c4f20d095c7dbaf0c8d2cf9a8b095388a10d4 (diff)
downloadxmobar-a5c35003c88c4b050e56cfb5d93a0e0d77d9c223.tar.gz
xmobar-a5c35003c88c4b050e56cfb5d93a0e0d77d9c223.tar.bz2
Whitespace
Diffstat (limited to 'src/Xmobar/X11/Parsers.hs')
-rw-r--r--src/Xmobar/X11/Parsers.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Xmobar/X11/Parsers.hs b/src/Xmobar/X11/Parsers.hs
index 513f63b..0685618 100644
--- a/src/Xmobar/X11/Parsers.hs
+++ b/src/Xmobar/X11/Parsers.hs
@@ -193,16 +193,16 @@ boxReader b (x:xs) = do
(p,'=':v) -> (p, v)
(p, _) -> (p, "")
boxReader (boxParamReader b param val) xs
-
+
boxParamReader :: Box -> String -> String -> Box
boxParamReader b _ "" = b
-boxParamReader (Box bb off lw fc mgs) "type" val =
+boxParamReader (Box bb off lw fc mgs) "type" val =
Box (fromMaybe bb $ readMaybe ("BB" ++ val)) off lw fc mgs
boxParamReader (Box bb (BoxOffset alg off) lw fc mgs) "offset" (a:o) =
Box bb (BoxOffset (fromMaybe alg $ readMaybe [a]) (fromMaybe off $ readMaybe o)) lw fc mgs
-boxParamReader (Box bb off lw fc mgs) "width" val =
+boxParamReader (Box bb off lw fc mgs) "width" val =
Box bb off (fromMaybe lw $ readMaybe val) fc mgs
-boxParamReader (Box bb off lw _ mgs) "color" val =
+boxParamReader (Box bb off lw _ mgs) "color" val =
Box bb off lw val mgs
boxParamReader (Box bb off lw fc mgs@(BoxMargins mt mr mb ml)) ('m':pos) val = do
let mgs' = case pos of