stylish haskell

Author: VenInf

ghcide/src/Development/IDE/LSP/Outline.hs

@@ -26,7 +26,7 @@ import           Language.LSP.Protocol.Types             (DocumentSymbol (..),
                                                  DocumentSymbolParams (DocumentSymbolParams, _textDocument),
                                                  SymbolKind (..),
                                                  TextDocumentIdentifier (TextDocumentIdentifier),
-                                                 type (|?) (InL, InR), uriToFilePath, mkRange, SymbolInformation (_deprecated))
+                                                 type (|?) (InL, InR), uriToFilePath)
 import          Language.LSP.Protocol.Message
 
 -- See Note [Guidelines For Using CPP In GHCIDE Import Statements]

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal.hs

@@ -38,8 +38,8 @@ import qualified Ide.Plugin.Cabal.Completion.Types           as Types
 import qualified Ide.Plugin.Cabal.Diagnostics                as Diagnostics
 import qualified Ide.Plugin.Cabal.LicenseSuggest             as LicenseSuggest
 import           Ide.Plugin.Cabal.Orphans                    ()
-import qualified Ide.Plugin.Cabal.Parse                      as Parse
 import           Ide.Plugin.Cabal.Outline
+import qualified Ide.Plugin.Cabal.Parse                      as Parse
 import           Ide.Types
 import qualified Language.LSP.Protocol.Lens                  as JL
 import qualified Language.LSP.Protocol.Message               as LSP

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Completion/Types.hs

@@ -173,4 +173,4 @@ lspPositionToCabalPosition pos = Syntax.Position
   (fromIntegral (pos ^. JL.character) + 1)
 
 cabalPositionToLSPPosition :: Syntax.Position -> Position
-cabalPositionToLSPPosition (Syntax.Position start end) = Position (toEnum start -1) (toEnum end -1)
+cabalPositionToLSPPosition (Syntax.Position start end) = Position (toEnum start -1) (toEnum end -1)

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Outline.hs

@@ -1,35 +1,35 @@
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE CPP                   #-}
+{-# LANGUAGE DataKinds             #-}
 {-# LANGUAGE DuplicateRecordFields #-}
-{-# LANGUAGE GADTs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE GADTs                 #-}
+{-# LANGUAGE OverloadedStrings     #-}
+{-# LANGUAGE RecordWildCards       #-}
+{-# LANGUAGE ViewPatterns          #-}
 
 module Ide.Plugin.Cabal.Outline
   ( moduleOutline,
   )
 where
 
-import Control.Monad.IO.Class
-import Data.Maybe
-import Data.Text qualified as T
-import Data.Text.Encoding (decodeUtf8)
-import Development.IDE.Core.Rules
-import Development.IDE.Core.Shake (IdeState (shakeExtras), runIdeAction, useWithStaleFast)
-import Development.IDE.Types.Location (toNormalizedFilePath')
-import Distribution.Fields.Field
-  ( Field (Field, Section),
-    FieldLine (FieldLine),
-    Name (Name),
-    SectionArg (SecArgName, SecArgOther, SecArgStr),
-  )
-import Distribution.Parsec.Position (Position (Position))
-import Ide.Plugin.Cabal.Completion.Types (ParseCabalFields (..), cabalPositionToLSPPosition)
-import Ide.Plugin.Cabal.Orphans ()
-import Ide.Types (PluginMethodHandler)
-import Language.LSP.Protocol.Message qualified as LSP
-import Language.LSP.Protocol.Types qualified as LSP
+import           Control.Monad.IO.Class
+import           Data.Maybe
+import qualified Data.Text                         as T
+import           Data.Text.Encoding                (decodeUtf8)
+import           Development.IDE.Core.Rules
+import           Development.IDE.Core.Shake        (IdeState (shakeExtras),
+                                                    runIdeAction,
+                                                    useWithStaleFast)
+import           Development.IDE.Types.Location    (toNormalizedFilePath')
+import           Distribution.Fields.Field         (Field (Field, Section),
+                                                    Name (Name),
+                                                    SectionArg (SecArgName, SecArgOther, SecArgStr))
+import           Distribution.Parsec.Position      (Position)
+import           Ide.Plugin.Cabal.Completion.Types (ParseCabalFields (..),
+                                                    cabalPositionToLSPPosition)
+import           Ide.Plugin.Cabal.Orphans          ()
+import           Ide.Types                         (PluginMethodHandler)
+import qualified Language.LSP.Protocol.Message     as LSP
+import qualified Language.LSP.Protocol.Types       as LSP
 
 moduleOutline :: PluginMethodHandler IdeState LSP.Method_TextDocumentDocumentSymbol
 moduleOutline ideState _ LSP.DocumentSymbolParams {_textDocument = LSP.TextDocumentIdentifier uri} =
@@ -75,9 +75,9 @@ joinedNameForSectionArgs sectionArgs = joinedName
     joinedName = T.unwords $ map getName sectionArgs
 
     getName :: SectionArg Position -> T.Text
-    getName (SecArgName _ identifier) = decodeUtf8 identifier
+    getName (SecArgName _ identifier)  = decodeUtf8 identifier
     getName (SecArgStr _ quotedString) = decodeUtf8 quotedString
-    getName (SecArgOther _ string) = decodeUtf8 string
+    getName (SecArgOther _ string)     = decodeUtf8 string
 
 -- | Creates a single point LSP range
 --   using cabal position
@@ -102,4 +102,4 @@ defDocumentSymbol range = LSP.DocumentSymbol {..}
     _range = range
     _selectionRange = range
     _children = Nothing
-    _tags = Nothing
+    _tags = Nothing