From 38df0523da585c2c17e499e11db5128c4823c73d Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Mon, 3 Feb 2020 00:03:14 +0100
Subject: [PATCH] Change whitespace
---
src/QBar/BlockOutput.hs | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/src/QBar/BlockOutput.hs b/src/QBar/BlockOutput.hs
index b375673..1f06099 100644
--- a/src/QBar/BlockOutput.hs
+++ b/src/QBar/BlockOutput.hs
@@ -51,12 +51,12 @@ $(deriveJSON defaultOptions ''BlockText)
mkBlockOutput :: BlockText -> BlockOutput
-mkBlockOutput text = BlockOutput
- { _fullText = text
- , _shortText = Nothing
- , _blockName = Nothing
- , _invalid = False
- }
+mkBlockOutput text = BlockOutput {
+ _fullText = text,
+ _shortText = Nothing,
+ _blockName = Nothing,
+ _invalid = False
+}
mkErrorOutput :: T.Text -> BlockOutput
mkErrorOutput = mkBlockOutput . importantText criticalImportant
@@ -68,8 +68,6 @@ addIcon :: T.Text -> BlockOutput -> BlockOutput
addIcon icon = over fullText $ (<>) . normalText $ icon <> " "
-
-
normalImportant :: Importance
normalImportant = 1
warnImportant :: Importance
--
GitLab