From 71c6f9173218ad219ba0e0a494867fd1f3b3419c Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Sat, 1 Feb 2020 00:45:40 +0100
Subject: [PATCH] Fix whitespace
---
src/QBar/Themes.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/QBar/Themes.hs b/src/QBar/Themes.hs
index 16cfdc2..cf62584 100644
--- a/src/QBar/Themes.hs
+++ b/src/QBar/Themes.hs
@@ -24,9 +24,9 @@ mkTheme theming' = map themeBlock
| block^.invalid = invalidSimplifiedTheme
| otherwise = theming'
fullText' :: T.Text
- fullText' = themeBlockText theming $ block^.fullText
+ fullText' = themeBlockText theming $ block ^. fullText
shortText' :: Maybe T.Text
- shortText' = themeBlockText theming <$> block^.shortText
+ shortText' = themeBlockText theming <$> block ^. shortText
themeBlockText :: SimplifiedTheme -> BlockText -> T.Text
themeBlockText theming (BlockText b) = foldr ((<>) . themeSegment theming) "" b
themeSegment :: SimplifiedTheme -> BlockTextSegment -> T.Text
@@ -38,7 +38,7 @@ mkTheme theming' = map themeBlock
invalidColor :: Color
-invalidColor = ColorRGBA (0x96/255) (0x98/255) (0x96/255) (0x77/255)
+invalidColor = ColorRGBA (0x96 / 255) (0x98 / 255) (0x96 / 255) (0x77 / 255)
invalidSimplifiedTheme :: SimplifiedTheme
@@ -61,4 +61,4 @@ defaultTheme = mkTheme defaultTheme'
| isWarning importance,active = (ColorRGB 1 0.9 0, Nothing)
| isWarning importance = (ColorRGB 0.6 0.6 0, Nothing)
| otherwise, active = (ColorRGB 1 1 1, Nothing)
- | otherwise = (ColorRGB (0x96/255) (0x98/255) (0x96/255), Nothing)
+ | otherwise = (ColorRGB (0x96 / 255) (0x98 / 255) (0x96 / 255), Nothing)
--
GitLab