Apply some hlint suggestions

src/QBar/ControlSocket.hs

@@ -55,7 +55,7 @@ class (ToJSON (Up s), FromJSON (Up s), ToJSON (Down s), FromJSON (Down s)) => Is
     return (up, down)
     where
       verbosePrintP :: Pipe ByteString ByteString IO ()
-      verbosePrintP = if verbose then (PP.chain $ BSC.hPutStrLn stderr) else cat
+      verbosePrintP = if verbose then PP.chain $ BSC.hPutStrLn stderr else cat
   handleByteStream :: s -> MainOptions -> Producer ByteString IO () -> Consumer ByteString IO () -> BarIO ()
   handleByteStream s options up down = do
     (handleUp, handleDown, cleanup) <- streamHandler s

src/QBar/DefaultConfig.hs

@@ -21,7 +21,7 @@ legacyBarConfig :: BarIO ()
 legacyBarConfig = do
   let todo = pollScriptBlock $ blockLocation "todo"
   let networkEnvironment = pollScriptBlock $ blockLocation "network-environment"
-  let ram = (pollScriptBlock $ blockLocation "memory") >-> modify (addIcon "🐏\xFE0E") >-> autoPadding
+  let ram = pollScriptBlock (blockLocation "memory") >-> modify (addIcon "🐏\xFE0E") >-> autoPadding
   let temperature = (pollScriptBlock $ blockLocation "temperature") >-> autoPadding
   let volumeBlock = scriptBlock $ blockLocation "volume-pulseaudio -S -F3"
 

src/QBar/TagParser.hs

@@ -55,7 +55,7 @@ tagParser = parser (False, normalImportant)
       let background = listToMaybe . catMaybes $ backgrounds
       void $ char '>'
       content <- T.fromStrict <$> A.takeWhile1 (notInClass "<>")
-      void $ string $ "</span>"
+      void $ string "</span>"
       return $ mkStyledText color background content
       where
         colorAttributeParser :: Text -> Parser Color
@@ -65,11 +65,8 @@ tagParser = parser (False, normalImportant)
           skipSpace
           void $ char '='
           skipSpace
-          value <- (
-              char '\'' *> colorParser <* char '\''
-              <|> char '"' *> colorParser <* char '"'
-            )
-          return value
+          char '\'' *> colorParser <* char '\'' <|>
+            char '"' *> colorParser <* char '"'
 
         colorAttribute :: Parser (Maybe Color, Maybe Color)
         colorAttribute = do