Apply stylish-haskell formatting

Author: fendor

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

@@ -56,8 +56,8 @@ import           Development.IDE.Types.Location       (NormalizedFilePath)
 import qualified Development.IDE.Types.Location       as Location
 import qualified Ide.Logger                           as Logger
 import           Ide.Plugin.Error
-import           Ide.Types
 import           Ide.PluginUtils                      (rangesOverlap)
+import           Ide.Types
 import qualified Language.LSP.Protocol.Lens           as LSP
 import           Language.LSP.Protocol.Message        (SMethod (..))
 import qualified Language.LSP.Protocol.Types          as LSP

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

@@ -24,7 +24,8 @@ import qualified Data.Map                                     as M
 import           Data.Time.Clock.POSIX
 import           Data.Typeable
 import           Development.IDE.GHC.Compat                   hiding
-                                                              (HieFileResult, assert)
+                                                              (HieFileResult,
+                                                               assert)
 import           Development.IDE.GHC.Compat.Util
 import           Development.IDE.GHC.CoreFile
 import           Development.IDE.GHC.Util

ghcide/src/Development/IDE/GHC/Compat/Driver.hs

@@ -14,7 +14,7 @@ module Development.IDE.GHC.Compat.Driver
 
 #if MIN_VERSION_ghc(9,11,0)
 
-import GHC.Driver.Main (hscTypecheckRenameWithDiagnostics)
+import           GHC.Driver.Main            (hscTypecheckRenameWithDiagnostics)
 
 #else
 

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

@@ -154,7 +154,7 @@ get_defn identifier = NonRec identifier templ
   where
     templ = case maybeUnfoldingTemplate (realIdUnfolding identifier) of
               Nothing -> error "get_dfn: no unfolding template"
-              Just x -> x
+              Just x  -> x
 
 toIfaceTopBndr1 :: Module -> Id -> IfaceId
 toIfaceTopBndr1 mod identifier

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

@@ -1,7 +1,7 @@
+{-# LANGUAGE CPP              #-}
 {-# LANGUAGE DeriveAnyClass   #-}
 {-# LANGUAGE OverloadedLabels #-}
 {-# LANGUAGE TypeFamilies     #-}
-{-# LANGUAGE CPP              #-}
 
 -- | An HLS plugin to provide code lenses for type signatures
 module Development.IDE.Plugin.TypeLenses (

ghcide/src/Development/IDE/Spans/AtPoint.hs

@@ -36,9 +36,9 @@ import           Language.LSP.Protocol.Types          hiding
 import           Prelude                              hiding (mod)
 
 -- compiler and infrastructure
+import           Development.IDE.Core.Compile         (setNonHomeFCHook)
 import           Development.IDE.Core.PositionMapping
 import           Development.IDE.Core.RuleTypes
-import           Development.IDE.Core.Compile         (setNonHomeFCHook)
 import           Development.IDE.GHC.Compat
 import qualified Development.IDE.GHC.Compat.Util      as Util
 import           Development.IDE.GHC.Util             (printOutputable)

ghcide/src/Development/IDE/Types/HscEnvEq.hs

@@ -14,6 +14,8 @@ import           Control.DeepSeq                 (force, rwhnf)
 import           Control.Exception               (evaluate, mask, throwIO)
 import           Control.Monad.Extra             (eitherM, join, mapMaybeM)
 import           Data.Either                     (fromRight)
+import           Data.IORef
+import qualified Data.Map                        as M
 import           Data.Unique                     (Unique)
 import qualified Data.Unique                     as Unique
 import           Development.IDE.GHC.Compat      hiding (newUnique)
@@ -22,12 +24,10 @@ import           Development.IDE.GHC.Error       (catchSrcErrors)
 import           Development.IDE.GHC.Util        (lookupPackageConfig)
 import           Development.IDE.Graph.Classes
 import           Development.IDE.Types.Exports   (ExportsMap, createExportsMap)
+import           GHC.Driver.Env                  (hsc_all_home_unit_ids)
+import           Ide.PluginUtils                 (toAbsolute)
 import           OpenTelemetry.Eventlog          (withSpan)
 import           System.Directory                (makeAbsolute)
-import qualified Data.Map as M
-import Data.IORef
-import           GHC.Driver.Env                      (hsc_all_home_unit_ids)
-import           Ide.PluginUtils                 (toAbsolute)
 
 
 -- | An 'HscEnv' with equality. Two values are considered equal