From a5c35003c88c4b050e56cfb5d93a0e0d77d9c223 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 28 Jan 2022 02:45:00 +0000 Subject: Whitespace --- src/Xmobar/X11/Parsers.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Xmobar/X11/Parsers.hs') 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 -- cgit v1.2.3