Skip to content

Commit fc89389

Browse files
committed
Apply stylish-haskell formatting
1 parent 07758d6 commit fc89389

File tree

7 files changed

+11
-10
lines changed

7 files changed

+11
-10
lines changed

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,8 +56,8 @@ import Development.IDE.Types.Location (NormalizedFilePath)
5656
import qualified Development.IDE.Types.Location as Location
5757
import qualified Ide.Logger as Logger
5858
import Ide.Plugin.Error
59-
import Ide.Types
6059
import Ide.PluginUtils (rangesOverlap)
60+
import Ide.Types
6161
import qualified Language.LSP.Protocol.Lens as LSP
6262
import Language.LSP.Protocol.Message (SMethod (..))
6363
import qualified Language.LSP.Protocol.Types as LSP

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

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,8 @@ import qualified Data.Map as M
2424
import Data.Time.Clock.POSIX
2525
import Data.Typeable
2626
import Development.IDE.GHC.Compat hiding
27-
(HieFileResult, assert)
27+
(HieFileResult,
28+
assert)
2829
import Development.IDE.GHC.Compat.Util
2930
import Development.IDE.GHC.CoreFile
3031
import Development.IDE.GHC.Util

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ module Development.IDE.GHC.Compat.Driver
1414

1515
#if MIN_VERSION_ghc(9,11,0)
1616

17-
import GHC.Driver.Main (hscTypecheckRenameWithDiagnostics)
17+
import GHC.Driver.Main (hscTypecheckRenameWithDiagnostics)
1818

1919
#else
2020

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -154,7 +154,7 @@ get_defn identifier = NonRec identifier templ
154154
where
155155
templ = case maybeUnfoldingTemplate (realIdUnfolding identifier) of
156156
Nothing -> error "get_dfn: no unfolding template"
157-
Just x -> x
157+
Just x -> x
158158

159159
toIfaceTopBndr1 :: Module -> Id -> IfaceId
160160
toIfaceTopBndr1 mod identifier

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
1+
{-# LANGUAGE CPP #-}
12
{-# LANGUAGE DeriveAnyClass #-}
23
{-# LANGUAGE OverloadedLabels #-}
34
{-# LANGUAGE TypeFamilies #-}
4-
{-# LANGUAGE CPP #-}
55

66
-- | An HLS plugin to provide code lenses for type signatures
77
module Development.IDE.Plugin.TypeLenses (

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -36,9 +36,9 @@ import Language.LSP.Protocol.Types hiding
3636
import Prelude hiding (mod)
3737

3838
-- compiler and infrastructure
39+
import Development.IDE.Core.Compile (setNonHomeFCHook)
3940
import Development.IDE.Core.PositionMapping
4041
import Development.IDE.Core.RuleTypes
41-
import Development.IDE.Core.Compile (setNonHomeFCHook)
4242
import Development.IDE.GHC.Compat
4343
import qualified Development.IDE.GHC.Compat.Util as Util
4444
import Development.IDE.GHC.Util (printOutputable)

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

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,8 @@ import Control.DeepSeq (force, rwhnf)
1414
import Control.Exception (evaluate, mask, throwIO)
1515
import Control.Monad.Extra (eitherM, join, mapMaybeM)
1616
import Data.Either (fromRight)
17+
import Data.IORef
18+
import qualified Data.Map as M
1719
import Data.Unique (Unique)
1820
import qualified Data.Unique as Unique
1921
import Development.IDE.GHC.Compat hiding (newUnique)
@@ -22,12 +24,10 @@ import Development.IDE.GHC.Error (catchSrcErrors)
2224
import Development.IDE.GHC.Util (lookupPackageConfig)
2325
import Development.IDE.Graph.Classes
2426
import Development.IDE.Types.Exports (ExportsMap, createExportsMap)
27+
import GHC.Driver.Env (hsc_all_home_unit_ids)
28+
import Ide.PluginUtils (toAbsolute)
2529
import OpenTelemetry.Eventlog (withSpan)
2630
import System.Directory (makeAbsolute)
27-
import qualified Data.Map as M
28-
import Data.IORef
29-
import GHC.Driver.Env (hsc_all_home_unit_ids)
30-
import Ide.PluginUtils (toAbsolute)
3131

3232

3333
-- | An 'HscEnv' with equality. Two values are considered equal

0 commit comments

Comments
 (0)