Reformat repository to clean up failing CI step

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

@@ -162,7 +162,7 @@ import           GHC.Stack                              (HasCallStack)
 import           HieDb.Types
 import           Ide.Plugin.Config
 import qualified Ide.PluginUtils                        as HLS
-import           Ide.Types                              (PluginId, IdePlugins)
+import           Ide.Types                              (IdePlugins, PluginId)
 import           Language.LSP.Diagnostics
 import qualified Language.LSP.Server                    as LSP
 import           Language.LSP.Types

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

@@ -8,46 +8,45 @@ module Development.IDE.Plugin.Completions
     , ghcideCompletionsPluginPriority
     ) where
 
-import           Control.Concurrent.Async                     (concurrently)
-import           Control.Concurrent.STM.Stats                 (readTVarIO)
+import           Control.Concurrent.Async                 (concurrently)
+import           Control.Concurrent.STM.Stats             (readTVarIO)
 import           Control.Monad.Extra
 import           Control.Monad.IO.Class
 import           Control.Monad.Trans.Maybe
 import           Data.Aeson
-import qualified Data.HashMap.Strict                          as Map
-import qualified Data.HashSet                                 as Set
-import           Data.List                                    (find)
+import qualified Data.HashMap.Strict                      as Map
+import qualified Data.HashSet                             as Set
+import           Data.List                                (find)
 import           Data.Maybe
-import qualified Data.Text                                    as T
+import qualified Data.Text                                as T
 import           Development.IDE.Core.PositionMapping
 import           Development.IDE.Core.RuleTypes
-import           Development.IDE.Core.Service                 hiding (Log,
-                                                               LogShake)
-import           Development.IDE.Core.Shake                   hiding (Log)
-import qualified Development.IDE.Core.Shake                   as Shake
+import           Development.IDE.Core.Service             hiding (Log, LogShake)
+import           Development.IDE.Core.Shake               hiding (Log)
+import qualified Development.IDE.Core.Shake               as Shake
 import           Development.IDE.GHC.Compat
-import           Development.IDE.GHC.Error                    (rangeToSrcSpan)
-import           Development.IDE.GHC.Util                     (printOutputable)
+import           Development.IDE.GHC.Error                (rangeToSrcSpan)
+import           Development.IDE.GHC.Util                 (printOutputable)
 import           Development.IDE.Graph
 import           Development.IDE.Plugin.Completions.Logic
 import           Development.IDE.Plugin.Completions.Types
 import           Development.IDE.Types.Exports
-import           Development.IDE.Types.HscEnvEq               (HscEnvEq (envPackageExports),
-                                                               hscEnv)
-import qualified Development.IDE.Types.KnownTargets           as KT
+import           Development.IDE.Types.HscEnvEq           (HscEnvEq (envPackageExports),
+                                                           hscEnv)
+import qualified Development.IDE.Types.KnownTargets       as KT
 import           Development.IDE.Types.Location
-import           Development.IDE.Types.Logger                 (Pretty (pretty),
-                                                               Recorder,
-                                                               WithPriority,
-                                                               cmapWithPrio)
-import           GHC.Exts                                     (fromList, toList)
-import           Ide.Plugin.Config                            (Config)
+import           Development.IDE.Types.Logger             (Pretty (pretty),
+                                                           Recorder,
+                                                           WithPriority,
+                                                           cmapWithPrio)
+import           GHC.Exts                                 (fromList, toList)
+import           Ide.Plugin.Config                        (Config)
 import           Ide.Types
-import qualified Language.LSP.Server                          as LSP
+import qualified Language.LSP.Server                      as LSP
 import           Language.LSP.Types
-import qualified Language.LSP.VFS                             as VFS
+import qualified Language.LSP.VFS                         as VFS
 import           Numeric.Natural
-import           Text.Fuzzy.Parallel                          (Scored (..))
+import           Text.Fuzzy.Parallel                      (Scored (..))
 
 data Log = LogShake Shake.Log deriving Show
 

ghcide/src/Development/IDE/Plugin/Completions/Logic.hs

@@ -59,7 +59,8 @@ import           GHC.Plugins                              (Depth (AllTheWay),
 #endif
 import           Ide.PluginUtils                          (mkLspCommand)
 import           Ide.Types                                (CommandId (..),
-                                                           IdePlugins(..), PluginId)
+                                                           IdePlugins (..),
+                                                           PluginId)
 import           Language.LSP.Types
 import           Language.LSP.Types.Capabilities
 import qualified Language.LSP.VFS                         as VFS

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

@@ -56,6 +56,7 @@ import           Control.Monad                   (void)
 import qualified System.Posix.Process            as P (getProcessID)
 import           System.Posix.Signals
 #endif
+import           Control.Applicative             ((<|>))
 import           Control.Arrow                   ((&&&))
 import           Control.Lens                    ((^.))
 import           Data.Aeson                      hiding (defaultOptions)
@@ -67,7 +68,7 @@ import           Data.GADT.Compare
 import           Data.Hashable                   (Hashable)
 import           Data.HashMap.Strict             (HashMap)
 import qualified Data.HashMap.Strict             as HashMap
-import           Data.List.Extra                 (sortOn, find)
+import           Data.List.Extra                 (find, sortOn)
 import           Data.List.NonEmpty              (NonEmpty (..), toList)
 import qualified Data.Map                        as Map
 import           Data.Maybe
@@ -107,12 +108,11 @@ import           Options.Applicative             (ParserInfo)
 import           System.FilePath
 import           System.IO.Unsafe
 import           Text.Regex.TDFA.Text            ()
-import           Control.Applicative             ((<|>))
 
 -- ---------------------------------------------------------------------
 
 data IdePlugins ideState = IdePlugins_
-  { ipMap_ :: HashMap PluginId (PluginDescriptor ideState)
+  { ipMap_                :: HashMap PluginId (PluginDescriptor ideState)
   , lookupCommandProvider :: CommandId -> Maybe PluginId
   }
 

plugins/hls-code-range-plugin/src/Ide/Plugin/CodeRange.hs

@@ -30,9 +30,9 @@ import           Development.IDE.Core.Actions         (useE)
 import           Development.IDE.Core.PositionMapping (PositionMapping,
                                                        fromCurrentPosition,
                                                        toCurrentRange)
-import           Development.IDE.Types.Logger         (Pretty (..))
 import qualified Development.IDE.GHC.ExactPrint       as E
 import           Development.IDE.Plugin.CodeAction
+import           Development.IDE.Types.Logger         (Pretty (..))
 import           Ide.Plugin.CodeRange.Rules           (CodeRange (..),
                                                        GetCodeRange (..),
                                                        codeRangeRule)
@@ -69,7 +69,7 @@ data Log = LogRules Rules.Log
 
 instance Pretty Log where
     pretty log = case log of
-        LogRules codeRangeLog -> pretty codeRangeLog
+        LogRules codeRangeLog       -> pretty codeRangeLog
         LogExactPrint exactPrintLog -> pretty exactPrintLog
 
 selectionRangeHandler :: IdeState -> PluginId -> SelectionRangeParams -> LspM c (Either ResponseError (List SelectionRange))

plugins/hls-code-range-plugin/src/Ide/Plugin/CodeRange/Rules.hs

@@ -23,41 +23,42 @@ module Ide.Plugin.CodeRange.Rules
     , simplify
     ) where
 
-import           Control.DeepSeq                    (NFData)
-import qualified Control.Lens                       as Lens
-import           Control.Monad                      (foldM)
-import           Control.Monad.Except               (ExceptT (..), runExceptT)
-import           Control.Monad.Reader               (runReader)
-import           Control.Monad.Trans.Class          (lift)
-import           Control.Monad.Trans.Maybe          (MaybeT (MaybeT),
-                                                     maybeToExceptT)
+import           Control.DeepSeq                       (NFData)
+import qualified Control.Lens                          as Lens
+import           Control.Monad                         (foldM)
+import           Control.Monad.Except                  (ExceptT (..),
+                                                        runExceptT)
+import           Control.Monad.Reader                  (runReader)
+import           Control.Monad.Trans.Class             (lift)
+import           Control.Monad.Trans.Maybe             (MaybeT (MaybeT),
+                                                        maybeToExceptT)
 import           Control.Monad.Trans.Writer.CPS
-import           Data.Coerce                        (coerce)
-import           Data.Data                          (Typeable)
-import           Data.Foldable                      (traverse_)
-import           Data.Function                      (on, (&))
+import           Data.Coerce                           (coerce)
+import           Data.Data                             (Typeable)
+import           Data.Foldable                         (traverse_)
+import           Data.Function                         (on, (&))
 import           Data.Hashable
-import           Data.List                          (sort)
-import qualified Data.Map.Strict                    as Map
-import           Data.Vector                        (Vector)
-import qualified Data.Vector                        as V
+import           Data.List                             (sort)
+import qualified Data.Map.Strict                       as Map
+import           Data.Vector                           (Vector)
+import qualified Data.Vector                           as V
 import           Development.IDE
-import           Development.IDE.Core.Rules         (toIdeResult)
-import qualified Development.IDE.Core.Shake         as Shake
+import           Development.IDE.Core.Rules            (toIdeResult)
+import qualified Development.IDE.Core.Shake            as Shake
+import           Development.IDE.GHC.Compat            (HieAST (..),
+                                                        HieASTs (getAsts),
+                                                        ParsedSource, RefMap)
 import           Development.IDE.GHC.Compat.ExactPrint (Annotated)
-import           Development.IDE.GHC.Compat         (HieAST (..),
-                                                     HieASTs (getAsts),
-                                                     ParsedSource, RefMap)
 import           Development.IDE.GHC.Compat.Util
-import           Development.IDE.GHC.ExactPrint     (GetAnnotatedParsedSource (GetAnnotatedParsedSource))
-import           GHC.Generics                       (Generic)
-import           Ide.Plugin.CodeRange.ASTPreProcess (CustomNodeType (..),
-                                                     PreProcessEnv (..),
-                                                     isCustomNode,
-                                                     preProcessAST)
-import           Language.LSP.Types.Lens            (HasEnd (end),
-                                                     HasStart (start))
-import           Prelude                            hiding (log)
+import           Development.IDE.GHC.ExactPrint        (GetAnnotatedParsedSource (GetAnnotatedParsedSource))
+import           GHC.Generics                          (Generic)
+import           Ide.Plugin.CodeRange.ASTPreProcess    (CustomNodeType (..),
+                                                        PreProcessEnv (..),
+                                                        isCustomNode,
+                                                        preProcessAST)
+import           Language.LSP.Types.Lens               (HasEnd (end),
+                                                        HasStart (start))
+import           Prelude                               hiding (log)
 
 data Log = LogShake Shake.Log
     | LogNoAST

plugins/hls-haddock-comments-plugin/src/Ide/Plugin/HaddockComments.hs

@@ -15,10 +15,10 @@ import qualified Data.Map                              as Map
 import qualified Data.Text                             as T
 import           Development.IDE                       hiding (pluginHandlers)
 import           Development.IDE.GHC.Compat
-import           Development.IDE.Plugin.CodeAction
 import           Development.IDE.GHC.Compat.ExactPrint
 import           Development.IDE.GHC.ExactPrint        (GetAnnotatedParsedSource (..))
-import qualified Development.IDE.GHC.ExactPrint                   as E
+import qualified Development.IDE.GHC.ExactPrint        as E
+import           Development.IDE.Plugin.CodeAction
 import           Ide.Types
 import           Language.Haskell.GHC.ExactPrint
 import           Language.Haskell.GHC.ExactPrint.Types hiding (GhcPs)

plugins/hls-refactor-plugin/src/Development/IDE/GHC/Compat/ExactPrint.hs

@@ -1,14 +1,20 @@
 -- | This module contains compatibility constructs to write type signatures across
 --   multiple ghc-exactprint versions, accepting that anything more ambitious is
 --   pretty much impossible with the GHC 9.2 redesign of ghc-exactprint
+{-# LANGUAGE CPP             #-}
+{-# LANGUAGE PatternSynonyms #-}
+
 module Development.IDE.GHC.Compat.ExactPrint
 #if MIN_VERSION_ghc(9,3,0)
     ( ) where
 #else
     ( ExactPrint
     , exactPrint
     , makeDeltaAst
-    , Retrie.Annotated, pattern Annotated, astA, annsA
+    , Retrie.Annotated
+    , pattern Annotated
+    , astA
+    , annsA
     ) where
 
 #if !MIN_VERSION_ghc(9,2,0)

plugins/hls-refactor-plugin/src/Development/IDE/GHC/Dump.hs

@@ -1,25 +1,25 @@
 {-# LANGUAGE CPP #-}
 module Development.IDE.GHC.Dump(showAstDataHtml) where
-import           Data.Data                       hiding (Fixity)
-import           Development.IDE.GHC.Compat      hiding (NameAnn)
+import           Data.Data                             hiding (Fixity)
+import           Development.IDE.GHC.Compat            hiding (NameAnn)
 import           Development.IDE.GHC.Compat.ExactPrint
 #if MIN_VERSION_ghc(8,10,1)
 import           GHC.Hs.Dump
 #else
 import           HsDumpAst
 #endif
 #if MIN_VERSION_ghc(9,2,1)
-import qualified Data.ByteString                 as B
+import qualified Data.ByteString                       as B
 import           Development.IDE.GHC.Compat.Util
-import           Generics.SYB                    (ext1Q, ext2Q, extQ)
+import           Generics.SYB                          (ext1Q, ext2Q, extQ)
 import           GHC.Hs
 #endif
 #if MIN_VERSION_ghc(9,0,1)
 import           GHC.Plugins
 #else
 import           GhcPlugins
 #endif
-import           Prelude                         hiding ((<>))
+import           Prelude                               hiding ((<>))
 
 -- | Show a GHC syntax tree in HTML.
 #if MIN_VERSION_ghc(9,2,1)

plugins/hls-refactor-plugin/src/Development/IDE/GHC/ExactPrint.hs

@@ -1,5 +1,6 @@
-{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE CPP          #-}
 {-# LANGUAGE GADTs        #-}
+{-# LANGUAGE TypeFamilies #-}
 
 -- | This module hosts various abstractions and utility functions to work with ghc-exactprint.
 module Development.IDE.GHC.ExactPrint
@@ -114,10 +115,10 @@ instance Pretty Log where
 
 instance Show (Annotated ParsedSource) where
   show _ = "<Annotated ParsedSource>"
- 
+
 instance NFData (Annotated ParsedSource) where
   rnf = rwhnf
- 
+
 data GetAnnotatedParsedSource = GetAnnotatedParsedSource
   deriving (Eq, Show, Typeable, GHC.Generic)