Apply formats again

ghcide/exe/Main.hs

@@ -22,11 +22,11 @@ import           Development.IDE                   (Logger (Logger),
                                                     Priority (Info), action)
 import           Development.IDE.Core.OfInterest   (kick)
 import           Development.IDE.Core.Rules        (mainRule)
+import           Development.IDE.Graph             (ShakeOptions (shakeThreads))
 import qualified Development.IDE.Main              as Main
 import qualified Development.IDE.Plugin.HLS.GhcIde as GhcIde
 import qualified Development.IDE.Plugin.Test       as Test
 import           Development.IDE.Types.Options
-import           Development.IDE.Graph                 (ShakeOptions (shakeThreads))
 import           Ide.Plugin.Config                 (Config (checkParents, checkProject))
 import           Ide.Plugin.ConfigUtils            (pluginsToDefaultConfig,
                                                     pluginsToVSCodeExtensionSchema)

ghcide/session-loader/Development/IDE/Session.hs

@@ -143,7 +143,7 @@ loadWithImplicitCradle :: Maybe FilePath
 loadWithImplicitCradle mHieYaml rootDir = do
   crdl       <- case mHieYaml of
     Just yaml -> HieBios.loadCradle yaml
-    Nothing -> loadImplicitHieCradle $ addTrailingPathSeparator rootDir
+    Nothing   -> loadImplicitHieCradle $ addTrailingPathSeparator rootDir
   return crdl
 
 getInitialGhcLibDirDefault :: IO (Maybe LibDir)

ghcide/src/Control/Concurrent/Strict.hs

@@ -4,11 +4,11 @@ module Control.Concurrent.Strict
     ,module Control.Concurrent.Extra
     ) where
 
-import Control.Concurrent.Extra hiding (modifyVar, modifyVar_)
+import           Control.Concurrent.Extra hiding (modifyVar, modifyVar_)
 import qualified Control.Concurrent.Extra as Extra
-import Control.Exception (evaluate)
-import Data.Tuple.Extra (dupe)
-import Control.Monad (void)
+import           Control.Exception        (evaluate)
+import           Control.Monad            (void)
+import           Data.Tuple.Extra         (dupe)
 
 -- | Strict modification that returns the new value
 modifyVar' :: Var a -> (a -> a) -> IO a

ghcide/src/Development/IDE.hs

@@ -44,12 +44,12 @@ import           Development.IDE.Core.Shake            as X (FastResult (..),
                                                              use_, uses, uses_)
 import           Development.IDE.GHC.Error             as X
 import           Development.IDE.GHC.Util              as X
+import           Development.IDE.Graph                 as X (Action, RuleResult,
+                                                             Rules, action)
 import           Development.IDE.Plugin                as X
 import           Development.IDE.Types.Diagnostics     as X
 import           Development.IDE.Types.HscEnvEq        as X (HscEnvEq (..),
                                                              hscEnv,
                                                              hscEnvWithImportPaths)
 import           Development.IDE.Types.Location        as X
 import           Development.IDE.Types.Logger          as X
-import           Development.IDE.Graph                     as X (Action, RuleResult,
-                                                             Rules, action)

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

@@ -28,9 +28,9 @@ import           Development.IDE.GHC.Compat           hiding (TargetFile,
                                                        parseModule,
                                                        typecheckModule,
                                                        writeHieFile)
+import           Development.IDE.Graph
 import qualified Development.IDE.Spans.AtPoint        as AtPoint
 import           Development.IDE.Types.Location
-import           Development.IDE.Graph
 import qualified HieDb
 import           Language.LSP.Types                   (DocumentHighlight (..),
                                                        SymbolInformation (..))

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

@@ -11,10 +11,10 @@ module Development.IDE.Core.Debouncer
 import           Control.Concurrent.Async
 import           Control.Concurrent.Strict
 import           Control.Exception
-import           Control.Monad            (join)
-import           Data.Foldable            (traverse_)
-import           Data.HashMap.Strict      (HashMap)
-import qualified Data.HashMap.Strict      as Map
+import           Control.Monad             (join)
+import           Data.Foldable             (traverse_)
+import           Data.HashMap.Strict       (HashMap)
+import qualified Data.HashMap.Strict       as Map
 import           Data.Hashable
 import           System.Time.Extra
 

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

@@ -22,9 +22,9 @@ import           Development.IDE.Core.FileStore
 import           Development.IDE.Core.IdeConfiguration
 import           Development.IDE.Core.RuleTypes
 import           Development.IDE.Core.Shake
+import           Development.IDE.Graph
 import           Development.IDE.Types.Location
 import           Development.IDE.Types.Options
-import           Development.IDE.Graph
 import           Language.LSP.Server                   hiding (getVirtualFile)
 import           Language.LSP.Types
 import           Language.LSP.Types.Capabilities

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

@@ -55,7 +55,8 @@ import           System.IO.Error
 #ifdef mingw32_HOST_OS
 import qualified System.Directory                             as Dir
 #else
-import           System.Posix.Files                           ( getFileStatus, modificationTimeHiRes)
+import           System.Posix.Files                           (getFileStatus,
+                                                               modificationTimeHiRes)
 #endif
 
 import qualified Development.IDE.Types.Logger                 as L

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

@@ -20,8 +20,8 @@ import           Data.HashSet                   (HashSet, singleton)
 import           Data.Hashable                  (Hashed, hashed, unhashed)
 import           Data.Text                      (Text, isPrefixOf)
 import           Development.IDE.Core.Shake
-import           Development.IDE.Types.Location
 import           Development.IDE.Graph
+import           Development.IDE.Types.Location
 import           Language.LSP.Types
 import           System.FilePath                (isRelative)
 

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

@@ -111,7 +111,10 @@ import           Development.IDE.GHC.Compat                   hiding
                                                                writeHieFile)
 import           Development.IDE.GHC.Error
 import           Development.IDE.GHC.ExactPrint
-import           Development.IDE.GHC.Util hiding (modifyDynFlags)
+import           Development.IDE.GHC.Util                     hiding
+                                                              (modifyDynFlags)
+import           Development.IDE.Graph
+import           Development.IDE.Graph.Classes                hiding (get, put)
 import           Development.IDE.Import.DependencyInformation
 import           Development.IDE.Import.FindImports
 import qualified Development.IDE.Spans.AtPoint                as AtPoint
@@ -122,8 +125,6 @@ import           Development.IDE.Types.HscEnvEq
 import           Development.IDE.Types.Location
 import qualified Development.IDE.Types.Logger                 as L
 import           Development.IDE.Types.Options
-import           Development.IDE.Graph
-import           Development.IDE.Graph.Classes                    hiding (get, put)
 import           Fingerprint
 import           GHC.Generics                                 (Generic)
 import           GHC.IO.Encoding
@@ -140,11 +141,16 @@ import           Module
 import           System.Directory                             (canonicalizePath)
 import           TcRnMonad                                    (tcg_dependent_files)
 
-import           Ide.Plugin.Properties (HasProperty, KeyNameProxy, Properties, ToHsType, useProperty)
-import           Ide.Types (PluginId, DynFlagsModifications(dynFlagsModifyGlobal, dynFlagsModifyParser))
-import           Data.Default (def)
-import           Ide.PluginUtils (configForPlugin)
 import           Control.Applicative
+import           Data.Default                                 (def)
+import           Ide.Plugin.Properties                        (HasProperty,
+                                                               KeyNameProxy,
+                                                               Properties,
+                                                               ToHsType,
+                                                               useProperty)
+import           Ide.PluginUtils                              (configForPlugin)
+import           Ide.Types                                    (DynFlagsModifications (dynFlagsModifyGlobal, dynFlagsModifyParser),
+                                                               PluginId)
 
 -- | This is useful for rules to convert rules that can only produce errors or
 -- a result into the more general IdeResult type that supports producing

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

@@ -148,8 +148,8 @@ import           Control.Exception.Extra                hiding (bracket_)
 import           Data.Default
 import           HieDb.Types
 import           Ide.Plugin.Config
-import qualified Ide.PluginUtils                      as HLS
-import           Ide.Types                            (PluginId)
+import qualified Ide.PluginUtils                        as HLS
+import           Ide.Types                              (PluginId)
 
 -- | 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/Core/Tracing.hs

@@ -1,5 +1,5 @@
+{-# LANGUAGE CPP             #-}
 {-# LANGUAGE NoApplicativeDo #-}
-{-# LANGUAGE CPP #-}
 module Development.IDE.Core.Tracing
     ( otTracedHandler
     , otTracedAction
@@ -32,12 +32,12 @@ import           Debug.Trace.Flags              (userTracingEnabled)
 import           Development.IDE.Core.RuleTypes (GhcSession (GhcSession),
                                                  GhcSessionDeps (GhcSessionDeps),
                                                  GhcSessionIO (GhcSessionIO))
+import           Development.IDE.Graph          (Action, actionBracket)
 import           Development.IDE.Types.Location (Uri (..))
 import           Development.IDE.Types.Logger   (Logger, logDebug, logInfo)
 import           Development.IDE.Types.Shake    (Key (..), Value,
                                                  ValueWithDiagnostics (..),
                                                  Values)
-import           Development.IDE.Graph              (Action, actionBracket)
 import           Foreign.Storable               (Storable (sizeOf))
 import           HeapSize                       (recursiveSize, runHeapsize)
 import           Ide.PluginUtils                (installSigUsr1Handler)

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

@@ -20,19 +20,23 @@ module Development.IDE.Core.UseStale
   ) where
 
 import           Control.Arrow
-import           Control.Category (Category)
-import qualified Control.Category as C
-import           Control.DeepSeq (NFData)
+import           Control.Category                     (Category)
+import qualified Control.Category                     as C
+import           Control.DeepSeq                      (NFData)
 import           Data.Aeson
-import           Data.Coerce (coerce)
-import           Data.Functor ((<&>))
-import           Data.Functor.Identity (Identity(Identity))
-import           Data.Kind (Type)
-import           Data.String (fromString)
-import           Development.IDE (NormalizedFilePath, IdeRule, Action, Range, rangeToRealSrcSpan, realSrcSpanToRange)
+import           Data.Coerce                          (coerce)
+import           Data.Functor                         ((<&>))
+import           Data.Functor.Identity                (Identity (Identity))
+import           Data.Kind                            (Type)
+import           Data.String                          (fromString)
+import           Development.IDE                      (Action, IdeRule,
+                                                       NormalizedFilePath,
+                                                       Range,
+                                                       rangeToRealSrcSpan,
+                                                       realSrcSpanToRange)
 import qualified Development.IDE.Core.PositionMapping as P
-import qualified Development.IDE.Core.Shake as IDE
-import qualified FastString as FS
+import qualified Development.IDE.Core.Shake           as IDE
+import qualified FastString                           as FS
 import           SrcLoc
 
 

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

@@ -1,10 +1,10 @@
 -- Copyright (c) 2019 The DAML Authors. All rights reserved.
 -- SPDX-License-Identifier: Apache-2.0
 
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE ConstraintKinds #-}
+{-# LANGUAGE CPP               #-}
+{-# LANGUAGE ConstraintKinds   #-}
 {-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE PatternSynonyms #-}
+{-# LANGUAGE PatternSynonyms   #-}
 {-# OPTIONS -Wno-dodgy-imports -Wno-incomplete-uni-patterns #-}
 
 -- | Attempt at hiding the GHC version differences we can.
@@ -62,60 +62,56 @@ module Development.IDE.GHC.Compat(
     ,isQualifiedImport) where
 
 #if MIN_VERSION_ghc(8,10,0)
-import LinkerTypes
+import           LinkerTypes
 #endif
 
-import StringBuffer
+import           Compat.HieAst      (enrichHie, mkHieFile)
+import           Compat.HieBin
+import           Compat.HieTypes
+import           Compat.HieUtils
+import qualified Data.ByteString    as BS
+import           Data.IORef
+import           DynFlags           hiding (ExposePackage)
 import qualified DynFlags
-import DynFlags hiding (ExposePackage)
-import Fingerprint (Fingerprint)
+import           Fingerprint        (Fingerprint)
+import           HscTypes
+import           MkIface
 import qualified Module
-import Packages
-import Data.IORef
-import HscTypes
-import NameCache
-import qualified Data.ByteString as BS
-import MkIface
-import TcRnTypes
-import Compat.HieAst (mkHieFile,enrichHie)
-import Compat.HieBin
-import Compat.HieTypes
-import Compat.HieUtils
+import           NameCache
+import           Packages
+import           StringBuffer
+import           TcRnTypes
 
 #if MIN_VERSION_ghc(8,10,0)
-import GHC.Hs.Extension
+import           GHC.Hs.Extension
 #else
-import HsExtension
+import           HsExtension
 #endif
 
+import           Avail
+import           GHC                hiding (HasSrcSpan, ModLocation, getLoc,
+                                     lookupName)
 import qualified GHC
 import qualified TyCoRep
-import GHC hiding (
-      ModLocation,
-      HasSrcSpan,
-      lookupName,
-      getLoc
-    )
-import Avail
 #if MIN_VERSION_ghc(8,8,0)
-import Data.List (foldl')
+import           Data.List          (foldl')
 #else
-import Data.List (foldl', isSuffixOf)
+import           Data.List          (foldl', isSuffixOf)
 #endif
 
-import DynamicLoading
-import Plugins (Plugin(parsedResultAction), withPlugins)
-import Data.Map.Strict (Map)
+import           Data.Map.Strict    (Map)
+import           DynamicLoading
+import           Plugins            (Plugin (parsedResultAction), withPlugins)
 
 #if !MIN_VERSION_ghc(8,8,0)
-import System.FilePath ((-<.>))
+import           System.FilePath    ((-<.>))
 #endif
 
 #if !MIN_VERSION_ghc(8,8,0)
 import qualified EnumSet
 
-import System.IO
-import Foreign.ForeignPtr
+import           Foreign.ForeignPtr
+import           System.IO
 
 
 hPutStringBuffer :: Handle -> StringBuffer -> IO ()
@@ -303,8 +299,8 @@ pattern FunTy arg res <- TyCoRep.FunTy arg res
 isQualifiedImport :: ImportDecl a -> Bool
 #if MIN_VERSION_ghc(8,10,0)
 isQualifiedImport ImportDecl{ideclQualified = NotQualified} = False
-isQualifiedImport ImportDecl{} = True
+isQualifiedImport ImportDecl{}                              = True
 #else
-isQualifiedImport ImportDecl{ideclQualified} = ideclQualified
+isQualifiedImport ImportDecl{ideclQualified}                = ideclQualified
 #endif
-isQualifiedImport _ = False
+isQualifiedImport _                                         = False