Skip to content

Commit 5cfec76

Browse files
jhrcekjhrcek
committed
Stylish on unformattable files
1 parent 74ee34b commit 5cfec76

File tree

3 files changed

+51
-45
lines changed

3 files changed

+51
-45
lines changed

‎ghcide/src/Development/IDE/Core/Compile.hs

Lines changed: 47 additions & 41 deletions
Original file line numberDiff line numberDiff line change
@@ -39,71 +39,77 @@ module Development.IDE.Core.Compile
3939
) where
4040

4141
import Control.Concurrent.Extra
42-
import Control.Concurrent.STM.Stats hiding (orElse)
43-
import Control.DeepSeq (NFData (..), force, rnf)
44-
import Control.Exception (evaluate)
42+
import Control.Concurrent.STM.Stats hiding (orElse)
43+
import Control.DeepSeq (NFData (..), force,
44+
rnf)
45+
import Control.Exception (evaluate)
4546
import Control.Exception.Safe
46-
import Control.Lens hiding (List, pre, (<.>))
47+
import Control.Lens hiding (List, pre,
48+
(<.>))
4749
import Control.Monad.Extra
4850
import Control.Monad.IO.Class
4951
import Control.Monad.Trans.Except
50-
import qualified Control.Monad.Trans.State.Strict as S
51-
import Data.Aeson (toJSON)
52-
import Data.Bifunctor (first, second)
52+
import qualified Control.Monad.Trans.State.Strict as S
53+
import Data.Aeson (toJSON)
54+
import Data.Bifunctor (first, second)
5355
import Data.Binary
54-
import qualified Data.ByteString as BS
56+
import qualified Data.ByteString as BS
5557
import Data.Coerce
56-
import qualified Data.DList as DL
58+
import qualified Data.DList as DL
5759
import Data.Functor
5860
import Data.Generics.Aliases
5961
import Data.Generics.Schemes
60-
import qualified Data.HashMap.Strict as HashMap
61-
import Data.IntMap (IntMap)
62+
import qualified Data.HashMap.Strict as HashMap
63+
import Data.IntMap (IntMap)
6264
import Data.IORef
6365
import Data.List.Extra
64-
import qualified Data.Map.Strict as Map
66+
import qualified Data.Map.Strict as Map
6567
import Data.Maybe
66-
import Data.Proxy (Proxy (Proxy))
67-
import qualified Data.Text as T
68-
import Data.Time (UTCTime (..))
69-
import Data.Tuple.Extra (dupe)
68+
import Data.Proxy (Proxy (Proxy))
69+
import qualified Data.Text as T
70+
import Data.Time (UTCTime (..))
71+
import Data.Tuple.Extra (dupe)
7072
import Debug.Trace
71-
import Development.IDE.Core.FileStore (resetInterfaceStore)
73+
import Development.IDE.Core.FileStore (resetInterfaceStore)
7274
import Development.IDE.Core.Preprocessor
75+
import Development.IDE.Core.ProgressReporting (ProgressReporting (..),
76+
progressReportingOutsideState)
7377
import Development.IDE.Core.RuleTypes
7478
import Development.IDE.Core.Shake
75-
import Development.IDE.Core.Tracing (withTrace)
76-
import Development.IDE.GHC.Compat hiding (assert,
77-
loadInterface, parseHeader,
78-
parseModule, tcRnModule,
79-
writeHieFile)
80-
import qualified Development.IDE.GHC.Compat as Compat
81-
import qualified Development.IDE.GHC.Compat as GHC
82-
import qualified Development.IDE.GHC.Compat.Util as Util
83-
import Development.IDE.Core.ProgressReporting (ProgressReporting (..), progressReportingOutsideState)
79+
import Development.IDE.Core.Tracing (withTrace)
80+
import Development.IDE.GHC.Compat hiding (assert,
81+
loadInterface,
82+
parseHeader,
83+
parseModule,
84+
tcRnModule,
85+
writeHieFile)
86+
import qualified Development.IDE.GHC.Compat as Compat
87+
import qualified Development.IDE.GHC.Compat as GHC
88+
import qualified Development.IDE.GHC.Compat.Util as Util
8489
import Development.IDE.GHC.CoreFile
8590
import Development.IDE.GHC.Error
86-
import Development.IDE.GHC.Orphans ()
91+
import Development.IDE.GHC.Orphans ()
8792
import Development.IDE.GHC.Util
8893
import Development.IDE.GHC.Warnings
8994
import Development.IDE.Types.Diagnostics
9095
import Development.IDE.Types.Location
9196
import Development.IDE.Types.Options
92-
import GHC (ForeignHValue,
93-
GetDocsFailure (..),
94-
parsedSource)
95-
import qualified GHC.LanguageExtensions as LangExt
97+
import GHC (ForeignHValue,
98+
GetDocsFailure (..),
99+
parsedSource)
100+
import qualified GHC.LanguageExtensions as LangExt
96101
import GHC.Serialized
97-
import HieDb hiding (withHieDb)
98-
import qualified Language.LSP.Protocol.Message as LSP
99-
import Language.LSP.Protocol.Types (DiagnosticTag (..))
100-
import qualified Language.LSP.Server as LSP
101-
import Prelude hiding (mod)
102+
import HieDb hiding (withHieDb)
103+
import qualified Language.LSP.Protocol.Message as LSP
104+
import Language.LSP.Protocol.Types (DiagnosticTag (..))
105+
import qualified Language.LSP.Server as LSP
106+
import Prelude hiding (mod)
102107
import System.Directory
103108
import System.FilePath
104-
import System.IO.Extra (fixIO, newTempFileWithin)
109+
import System.IO.Extra (fixIO,
110+
newTempFileWithin)
105111

106-
import qualified GHC as G
112+
import qualified GHC as G
107113
import GHC.Tc.Gen.Splice
108114
import GHC.Types.ForeignStubs
109115
import GHC.Types.HpcInfo
@@ -112,18 +118,18 @@ import GHC.Types.TypeEnv
112118
-- See Note [Guidelines For Using CPP In GHCIDE Import Statements]
113119

114120

115-
import qualified Data.Set as Set
121+
import qualified Data.Set as Set
116122

117123
#if MIN_VERSION_ghc(9,5,0)
118124
import GHC.Core.Lint.Interactive
119125
import GHC.Driver.Config.CoreToStg.Prep
120126
#endif
121127

122128
#if MIN_VERSION_ghc(9,7,0)
123-
import Data.Foldable (toList)
129+
import Data.Foldable (toList)
124130
import GHC.Unit.Module.Warnings
125131
#else
126-
import Development.IDE.Core.FileStore (shareFilePath)
132+
import Development.IDE.Core.FileStore (shareFilePath)
127133
#endif
128134

129135
--Simple constants to make sure the source is consistently named

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

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -488,11 +488,11 @@ import Data.Foldable (toList)
488488
import GHC.Core.Multiplicity (scaledThing)
489489
import GHC.Data.Bag
490490
import GHC.Driver.Env
491-
import GHC.Hs (HsModule (..))
491+
import GHC.Hs (HsModule (..))
492492
#if !MIN_VERSION_ghc(9,9,0)
493-
import GHC.Hs (SrcSpanAnn')
493+
import GHC.Hs (SrcSpanAnn')
494494
#endif
495-
import GHC.Hs.Decls hiding (FunDep)
495+
import GHC.Hs.Decls hiding (FunDep)
496496
import GHC.Hs.Doc
497497
import GHC.Hs.Expr
498498
import GHC.Hs.Extension

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ module Development.IDE.GHC.Compat.ExactPrint
77
, transformA
88
) where
99

10-
import Language.Haskell.GHC.ExactPrint as ExactPrint
10+
import Language.Haskell.GHC.ExactPrint as ExactPrint
1111

1212
printA :: (ExactPrint ast) => ast -> String
1313
printA ast = exactPrint ast

0 commit comments

Comments
 (0)