Tidy

Author: isovector

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

@@ -21,17 +21,16 @@ module Development.IDE.Core.Service(
 import           Development.IDE.Core.Debouncer
 import           Development.IDE.Core.FileExists (fileExistsRules)
 import           Development.IDE.Core.OfInterest
+import           Development.IDE.Graph
 import           Development.IDE.Types.Logger    as Logger
 import           Development.IDE.Types.Options   (IdeOptions (..))
-import           Development.IDE.Graph
 import           Ide.Plugin.Config
+import           Ide.Types (DynFlagsModifications)
 import qualified Language.LSP.Server             as LSP
 import qualified Language.LSP.Types              as LSP
 
 import           Control.Monad
 import           Development.IDE.Core.Shake
-import Development.IDE.GHC.Compat (DynFlags)
-import Ide.Types (DynFlagsModifications)
 
 
 ------------------------------------------------------------

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

@@ -149,7 +149,6 @@ import           HieDb.Types
 import           Ide.Plugin.Config
 import qualified Ide.PluginUtils                      as HLS
 import           Ide.Types                            (PluginId, DynFlagsModifications)
-import DynFlags (DynFlags)
 
 -- | We need to serialize writes to the database, so we send any function that
 -- needs to write to the database over the channel, where it will be picked up by

ghcide/src/Development/IDE/Plugin.hs

@@ -4,10 +4,8 @@ import           Data.Default
 import           Development.IDE.Graph
 
 import           Development.IDE.LSP.Server
+import           Ide.Types (DynFlagsModifications)
 import qualified Language.LSP.Server        as LSP
-import Development.IDE.GHC.Compat (DynFlags)
-import Data.Monoid (Endo)
-import Ide.Types (DynFlagsModifications)
 
 data Plugin c = Plugin
     {pluginRules    :: Rules ()

ghcide/src/Development/IDE/Plugin/HLS.hs

@@ -39,7 +39,6 @@ import           Text.Regex.TDFA.Text         ()
 import           UnliftIO                     (MonadUnliftIO)
 import           UnliftIO.Async               (forConcurrently)
 import           UnliftIO.Exception           (catchAny)
-import Development.IDE.GHC.Compat (DynFlags)
 
 -- ---------------------------------------------------------------------
 --

hls-plugin-api/src/Ide/Types.hs

@@ -39,6 +39,7 @@ import           Data.String
 import qualified Data.Text                       as T
 import           Data.Text.Encoding              (encodeUtf8)
 import           Development.IDE.Graph
+import           DynFlags                        (DynFlags)
 import           GHC.Generics
 import           Ide.Plugin.Config
 import           Ide.Plugin.Properties
@@ -50,7 +51,6 @@ import           Language.LSP.VFS
 import           OpenTelemetry.Eventlog
 import           System.IO.Unsafe
 import           Text.Regex.TDFA.Text            ()
-import DynFlags (DynFlags)
 
 -- ---------------------------------------------------------------------
 

plugins/hls-tactics-plugin/src/Wingman/Plugin.hs

@@ -20,6 +20,7 @@ import           Development.IDE.Core.Shake (IdeState (..))
 import           Development.IDE.Core.UseStale (Tracked, TrackedStale(..), unTrack, mapAgeFrom, unsafeMkCurrent)
 import           Development.IDE.GHC.Compat
 import           Development.IDE.GHC.ExactPrint
+import           GHC.LanguageExtensions.Type (Extension(EmptyCase))
 import           Generics.SYB.GHC
 import           Ide.Types
 import           Language.LSP.Server
@@ -37,7 +38,6 @@ import           Wingman.Machinery (scoreSolution)
 import           Wingman.Range
 import           Wingman.Tactics
 import           Wingman.Types
-import GHC.LanguageExtensions.Type (Extension(EmptyCase))
 
 
 descriptor :: PluginId -> PluginDescriptor IdeState