addressing hlint suggestions

Author: Anton-Latukha

ghcide/src/Development/IDE/Core/Compile.hs

@@ -166,7 +166,7 @@ typecheckModule (IdeDefer defer) hsc keep_lbls pm = do
                 diags = map errorPipeline warnings
                 deferedError = any fst diags
             case etcm of
-              Left errs -> return ((map snd diags) ++ errs, Nothing)
+              Left errs -> return (map snd diags ++ errs, Nothing)
               Right tcm -> return (map snd diags, Just $ tcm{tmrDeferedError = deferedError})
     where
         demoteIfDefer = if defer then demoteTypeErrorsToWarnings else id

ghcide/src/Development/IDE/GHC/Dump.hs

@@ -51,7 +51,7 @@ showAstDataHtml a0 = html $
 #if MIN_VERSION_ghc(9,2,1)
       | cts == empty = foo
 #endif
-      | otherwise = foo $$ (caret $ ul cts)
+      = foo $$ (caret $ ul cts)
     body cts = tag "body" $ cts $$ tag "script" (text js)
     header = tag "head" $ tag "style" $ text css
     html = tag "html"

ghcide/src/Development/IDE/GHC/ExactPrint.hs

@@ -5,7 +5,6 @@
 {-# LANGUAGE GADTs                  #-}
 {-# LANGUAGE RankNTypes             #-}
 {-# LANGUAGE TypeFamilies           #-}
-{-# LANGUAGE TypeSynonymInstances   #-}
 
 -- | This module hosts various abstractions and utility functions to work with ghc-exactprint.
 module Development.IDE.GHC.ExactPrint

ghcide/src/Development/IDE/Plugin/CodeAction/ExactPrint.hs

@@ -3,7 +3,6 @@
 {-# LANGUAGE OverloadedStrings  #-}
 {-# LANGUAGE RankNTypes         #-}
 {-# LANGUAGE CPP                #-}
-{-# LANGUAGE TypeSynonymInstances #-}
 {-# LANGUAGE FlexibleInstances #-}
 
 module Development.IDE.Plugin.CodeAction.ExactPrint (