diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/app/Main.hs b/app/Main.hs index 25a3c97..fd4dc2f 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -200,14 +200,14 @@ createWindow args = do intercalate [pure (lit " ")] $ [ [lit <$> wmWorkspaces], [litShrink <$> wmName, pure fill], - [pure (lit (if args.icons then "\xf4bc " else "cpu ")), lit <$> cpu], - [pure (lit (if args.icons then "\xf035b " else "mem ")), lit <$> mem], - [pure (lit (if args.icons then "\xf0a0 " else "disk ")), lit <$> disk], - [pure (lit (if args.icons then "\xf1638 " else "io ")), lit <$> io], - [pure (lit (if args.icons then "\xf0200 " else "net ")), lit <$> net], - [pure (lit " "), lit <$> Sensor.snd, pure (lit " ")], - [pure (lit (if args.icons then "\xf2cb " else "temp ")), lit <$> thermal], - [pure (lit " "), lit <$> bat], + [pure (lit (if args.icons then "\xf4bc " else "cpu")), lit <$> cpu], + [pure (lit (if args.icons then "\xf035b " else "mem")), lit <$> mem], + [pure (lit (if args.icons then "\xf0a0 " else "disk")), lit <$> disk], + [pure (lit (if args.icons then "\xf1638 " else "io")), lit <$> io], + [pure (lit (if args.icons then "\xf0200 " else "net")), lit <$> net], + [pure (lit (if args.icons then "\xf2cb" else "temp")), lit <$> thermal], + [lit <$> bat], + [lit <$> Sensor.snd], -- [lit <$> weatherForecast], [pure (lit " "), lit <$> date, pure (lit ", "), lit <$> time] ] |