remove unused imports from various modules

Author: soulomoon

hls-graph/src/Development/IDE/WorkerThread.hs

@@ -32,7 +32,7 @@ import qualified Data.Text                as T
 
 import           Control.Concurrent
 import           Control.Exception        (catch)
-import           Control.Monad            (void, when)
+import           Control.Monad            (when)
 import           Debug.Trace              (traceM)
 import           Prettyprinter
 
@@ -130,7 +130,7 @@ runInThreadStmInNewThreads getStep deliver (TaskQueue q) tthreads acts = do
   -- use barrier to wait for the result
   writeTQueue q (uninterruptibleMask $ \restore -> do
     curStep <- atomically getStep
-    traceM ("runInThreadStmInNewThreads: current step: " ++ show curStep ++ " deliver step: " ++ show deliver)
+    -- traceM ("runInThreadStmInNewThreads: current step: " ++ show curStep ++ " deliver step: " ++ show deliver)
     when (curStep == deliverStep deliver) $ do
         syncs <- mapM (\(act, handler) ->
             async (handler =<< (restore $ Right <$> act) `catch` \e@(SomeException _) -> return (Left e))) acts

plugins/hls-class-plugin/src/Ide/Plugin/Class/ExactPrint.hs

@@ -6,7 +6,6 @@ module Ide.Plugin.Class.ExactPrint where
 
 import           Control.Monad.Trans.Maybe
 import           Data.Either.Extra                       (eitherToMaybe)
-import           Data.Functor.Identity                   (Identity)
 import qualified Data.Text                               as T
 import           Development.IDE.GHC.Compat
 import           GHC.Parser.Annotation

plugins/hls-class-plugin/src/Ide/Plugin/Class/Types.hs

@@ -22,7 +22,6 @@ import           Development.IDE
 import           Development.IDE.Core.PluginUtils (useMT)
 import qualified Development.IDE.Core.Shake       as Shake
 import           Development.IDE.GHC.Compat       hiding (newUnique, (<+>))
-import           Development.IDE.GHC.Compat.Util  (bagToList)
 import           Development.IDE.Graph.Classes
 import           GHC.Generics
 import           Ide.Plugin.Class.Utils
@@ -226,9 +225,8 @@ getInstanceBindTypeSigsRule recorder = do
             whenMaybe (isBindingName name) $ do
                 env <- tcInitTidyEnv
 #if MIN_VERSION_ghc(9,11,0)
-                let ty =
+                let ty = tidyOpenType env (idType id)
 #else
-                let (_, ty) =
+                let (_, ty) = tidyOpenType env (idType id)
 #endif
-                              tidyOpenType env (idType id)
                 pure $ InstanceBindTypeSig name ty

plugins/hls-explicit-record-fields-plugin/src/Ide/Plugin/ExplicitFields.hs

@@ -57,8 +57,7 @@ import           Development.IDE.GHC.Compat           (FieldLabel (flSelector),
                                                        HsConDetails (RecCon),
                                                        HsExpr (HsApp, HsVar, XExpr),
                                                        HsFieldBind (hfbLHS),
-                                                       HsRecFields (..),
-                                                       HsWrap (HsWrap), LPat,
+                                                       HsRecFields (..), LPat,
                                                        Located,
                                                        NamedThing (getName),
                                                        Outputable,

plugins/hls-notes-plugin/src/Ide/Plugin/Notes.hs

@@ -5,7 +5,6 @@ import           Control.Monad.Except             (ExceptT, MonadError,
                                                    throwError)
 import           Control.Monad.IO.Class           (liftIO)
 import qualified Data.Array                       as A
-import           Data.Foldable                    (foldl')
 import           Data.HashMap.Strict              (HashMap)
 import qualified Data.HashMap.Strict              as HM
 import qualified Data.HashSet                     as HS

plugins/hls-stylish-haskell-plugin/src/Ide/Plugin/StylishHaskell.hs

@@ -25,7 +25,6 @@ import           Ide.PluginUtils
 import           Ide.Types                        hiding (Config)
 import           Language.Haskell.Stylish
 import           Language.LSP.Protocol.Types      as LSP
-import           System.Directory
 import           System.FilePath
 
 data Log