Skip to content

Commit 8dc503c

Browse files
AilrunAilrun
committed
Format all files
1 parent 211abd2 commit 8dc503c

File tree

139 files changed

+2894
-2844
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

139 files changed

+2894
-2844
lines changed

‎GenChangelogs.hs

+10-9
Original file line numberDiff line numberDiff line change
@@ -3,16 +3,17 @@
33
build-depends: base, process, text, github, time
44
-}
55

6-
{-# LANGUAGE OverloadedStrings, RecordWildCards #-}
6+
{-# LANGUAGE OverloadedStrings #-}
7+
{-# LANGUAGE RecordWildCards #-}
78

8-
import Control.Monad
9-
import Data.List
10-
import Data.Maybe
11-
import qualified Data.Text as T
12-
import Data.Time.Format.ISO8601
13-
import Data.Time.LocalTime
14-
import System.Process
15-
import GitHub
9+
import Control.Monad
10+
import Data.List
11+
import Data.Maybe
12+
import qualified Data.Text as T
13+
import Data.Time.Format.ISO8601
14+
import Data.Time.LocalTime
15+
import GitHub
16+
import System.Process
1617

1718
main = do
1819
callCommand "git fetch --tags"

‎exe/Main.hs

+3-4
Original file line numberDiff line numberDiff line change
@@ -4,11 +4,10 @@
44
{-# LANGUAGE RecordWildCards #-}
55
module Main(main) where
66

7-
import Ide.Arguments (Arguments (..), LspArguments (..),
8-
getArguments)
9-
import Ide.Main (defaultMain)
7+
import Ide.Arguments (Arguments (..), LspArguments (..), getArguments)
8+
import Ide.Main (defaultMain)
9+
import Main.Utf8 (withUtf8)
1010
import Plugins
11-
import Main.Utf8 (withUtf8)
1211

1312
main :: IO ()
1413
main = withUtf8 $ do

‎exe/Plugins.hs

+21-21
Original file line numberDiff line numberDiff line change
@@ -2,77 +2,77 @@
22
{-# LANGUAGE OverloadedStrings #-}
33
module Plugins where
44

5-
import Ide.Types (IdePlugins)
6-
import Ide.PluginUtils (pluginDescToIdePlugins)
5+
import Ide.PluginUtils (pluginDescToIdePlugins)
6+
import Ide.Types (IdePlugins)
77

88
-- fixed plugins
9-
import Ide.Plugin.Example as Example
10-
import Ide.Plugin.Example2 as Example2
11-
import Development.IDE (IdeState)
12-
import Development.IDE.Plugin.HLS.GhcIde as GhcIde
9+
import Development.IDE (IdeState)
10+
import Development.IDE.Plugin.HLS.GhcIde as GhcIde
11+
import Ide.Plugin.Example as Example
12+
import Ide.Plugin.Example2 as Example2
1313

1414
-- haskell-language-server optional plugins
1515

1616
#if class
17-
import Ide.Plugin.Class as Class
17+
import Ide.Plugin.Class as Class
1818
#endif
1919

2020
#if haddockComments
21-
import Ide.Plugin.HaddockComments as HaddockComments
21+
import Ide.Plugin.HaddockComments as HaddockComments
2222
#endif
2323

2424
#if eval
25-
import Ide.Plugin.Eval as Eval
25+
import Ide.Plugin.Eval as Eval
2626
#endif
2727

2828
#if importLens
29-
import Ide.Plugin.ExplicitImports as ExplicitImports
29+
import Ide.Plugin.ExplicitImports as ExplicitImports
3030
#endif
3131

3232
#if retrie
33-
import Ide.Plugin.Retrie as Retrie
33+
import Ide.Plugin.Retrie as Retrie
3434
#endif
3535

3636
#if tactic
37-
import Ide.Plugin.Tactic as Tactic
37+
import Ide.Plugin.Tactic as Tactic
3838
#endif
3939

4040
#if hlint
41-
import Ide.Plugin.Hlint as Hlint
41+
import Ide.Plugin.Hlint as Hlint
4242
#endif
4343

4444
#if moduleName
45-
import Ide.Plugin.ModuleName as ModuleName
45+
import Ide.Plugin.ModuleName as ModuleName
4646
#endif
4747

4848
#if pragmas
49-
import Ide.Plugin.Pragmas as Pragmas
49+
import Ide.Plugin.Pragmas as Pragmas
5050
#endif
5151

5252
#if splice
53-
import Ide.Plugin.Splice as Splice
53+
import Ide.Plugin.Splice as Splice
5454
#endif
5555

5656
-- formatters
5757

5858
#if floskell
59-
import Ide.Plugin.Floskell as Floskell
59+
import Ide.Plugin.Floskell as Floskell
6060
#endif
6161

6262
#if fourmolu
63-
import Ide.Plugin.Fourmolu as Fourmolu
63+
import Ide.Plugin.Fourmolu as Fourmolu
6464
#endif
6565

6666
#if ormolu
67-
import Ide.Plugin.Ormolu as Ormolu
67+
import Ide.Plugin.Ormolu as Ormolu
6868
#endif
6969

7070
#if stylishHaskell
71-
import Ide.Plugin.StylishHaskell as StylishHaskell
71+
import Ide.Plugin.StylishHaskell as StylishHaskell
7272
#endif
7373

7474
#if AGPL && brittany
75-
import Ide.Plugin.Brittany as Brittany
75+
import Ide.Plugin.Brittany as Brittany
7676
#endif
7777

7878
-- ---------------------------------------------------------------------

‎exe/Wrapper.hs

+19-19
Original file line numberDiff line numberDiff line change
@@ -3,24 +3,24 @@
33
-- https://github.com/alanz/vscode-hie-server
44
module Main where
55

6-
import Control.Monad.Extra
7-
import Data.Default
8-
import Data.Foldable
9-
import Data.List
10-
import Data.Void
11-
import Development.IDE.Session (findCradle)
12-
import HIE.Bios hiding (findCradle)
13-
import HIE.Bios.Environment
14-
import HIE.Bios.Types
15-
import Ide.Arguments
16-
import Ide.Version
17-
import System.Directory
18-
import System.Environment
19-
import System.Exit
20-
import System.FilePath
21-
import System.IO
22-
import System.Info
23-
import System.Process
6+
import Control.Monad.Extra
7+
import Data.Default
8+
import Data.Foldable
9+
import Data.List
10+
import Data.Void
11+
import Development.IDE.Session (findCradle)
12+
import HIE.Bios hiding (findCradle)
13+
import HIE.Bios.Environment
14+
import HIE.Bios.Types
15+
import Ide.Arguments
16+
import Ide.Version
17+
import System.Directory
18+
import System.Environment
19+
import System.Exit
20+
import System.FilePath
21+
import System.IO
22+
import System.Info
23+
import System.Process
2424

2525
-- ---------------------------------------------------------------------
2626

@@ -50,7 +50,7 @@ launchHaskellLanguageServer :: Arguments -> IO ()
5050
launchHaskellLanguageServer parsedArgs = do
5151
case parsedArgs of
5252
LspMode LspArguments{..} -> whenJust argsCwd setCurrentDirectory
53-
_ -> pure ()
53+
_ -> pure ()
5454

5555
d <- getCurrentDirectory
5656

‎ghcide/bench/exe/Main.hs

+4-4
Original file line numberDiff line numberDiff line change
@@ -34,11 +34,11 @@
3434

3535
{-# LANGUAGE ImplicitParams #-}
3636

37-
import Control.Exception.Safe
38-
import Experiments
39-
import Options.Applicative
40-
import System.IO
37+
import Control.Exception.Safe
4138
import Control.Monad
39+
import Experiments
40+
import Options.Applicative
41+
import System.IO
4242

4343
optsP :: Parser (Config, Bool)
4444
optsP = (,) <$> configP <*> switch (long "no-clean")

‎ghcide/bench/hist/Main.hs

+23-23
Original file line numberDiff line numberDiff line change
@@ -38,24 +38,24 @@
3838
> cabal bench --benchmark-options "bench-results/HEAD/results.csv bench-results/HEAD/edit.diff.svg"
3939
4040
-}
41-
{-# LANGUAGE DeriveAnyClass #-}
42-
{-# LANGUAGE DerivingStrategies#-}
43-
{-# LANGUAGE TypeFamilies #-}
41+
{-# LANGUAGE DeriveAnyClass #-}
42+
{-# LANGUAGE DerivingStrategies #-}
43+
{-# LANGUAGE TypeFamilies #-}
4444
{-# OPTIONS -Wno-orphans #-}
4545

46-
import Data.Foldable (find)
47-
import Data.Yaml (FromJSON (..), decodeFileThrow)
48-
import Development.Benchmark.Rules
49-
import Development.Shake
50-
import Experiments.Types (Example, exampleToOptions)
51-
import qualified Experiments.Types as E
52-
import GHC.Generics (Generic)
53-
import Numeric.Natural (Natural)
54-
import Development.Shake.Classes
55-
import System.Console.GetOpt
56-
import Data.Maybe
57-
import Control.Monad.Extra
58-
import System.FilePath
46+
import Control.Monad.Extra
47+
import Data.Foldable (find)
48+
import Data.Maybe
49+
import Data.Yaml (FromJSON (..), decodeFileThrow)
50+
import Development.Benchmark.Rules
51+
import Development.Shake
52+
import Development.Shake.Classes
53+
import Experiments.Types (Example, exampleToOptions)
54+
import qualified Experiments.Types as E
55+
import GHC.Generics (Generic)
56+
import Numeric.Natural (Natural)
57+
import System.Console.GetOpt
58+
import System.FilePath
5959

6060

6161
configPath :: FilePath
@@ -82,7 +82,7 @@ main = shakeArgsWith shakeOpts [configOpt] $ \configs wants -> pure $ Just $ do
8282
_configStatic <- createBuildSystem config
8383
case wants of
8484
[] -> want ["all"]
85-
_ -> want wants
85+
_ -> want wants
8686

8787
ghcideBuildRules :: MkBuildRules BuildSystem
8888
ghcideBuildRules = MkBuildRules findGhcForBuildSystem "ghcide" projectDepends buildGhcide
@@ -95,13 +95,13 @@ ghcideBuildRules = MkBuildRules findGhcForBuildSystem "ghcide" projectDepends bu
9595
--------------------------------------------------------------------------------
9696

9797
data Config buildSystem = Config
98-
{ experiments :: [Unescaped String],
99-
examples :: [Example],
100-
samples :: Natural,
101-
versions :: [GitCommit],
98+
{ experiments :: [Unescaped String],
99+
examples :: [Example],
100+
samples :: Natural,
101+
versions :: [GitCommit],
102102
-- | Output folder ('foo' works, 'foo/bar' does not)
103-
outputFolder :: String,
104-
buildTool :: buildSystem,
103+
outputFolder :: String,
104+
buildTool :: buildSystem,
105105
profileInterval :: Maybe Double
106106
}
107107
deriving (Generic, Show)

0 commit comments

Comments
 (0)