Prevent fourmolu from getting editor's tabSize

Author: zweimach

plugins/default/src/Ide/Plugin/Fourmolu.hs

@@ -13,7 +13,6 @@ import Control.Exception
 import Data.Either.Extra
 import System.FilePath
 
-import Control.Lens ((^.))
 import qualified Data.Text as T
 import Development.IDE as D
 import qualified DynFlags as D
@@ -28,7 +27,6 @@ import Language.Haskell.LSP.Messages (FromServerMessage (ReqShowMessage))
 import Ide.Types
 import Language.Haskell.LSP.Core
 import Language.Haskell.LSP.Types
-import Language.Haskell.LSP.Types.Lens
 import "fourmolu" Ormolu
 
 -- ---------------------------------------------------------------------
@@ -42,7 +40,7 @@ descriptor plId =
 -- ---------------------------------------------------------------------
 
 provider :: FormattingProvider IO
-provider lf ideState typ contents fp fo = withIndefiniteProgress lf title Cancellable $ do
+provider lf ideState typ contents fp _ = withIndefiniteProgress lf title Cancellable $ do
     ghc <- runAction "Fourmolu" ideState $ use GhcSession fp
     fileOpts <- case hsc_dflags . hscEnv <$> ghc of
         Nothing -> return []
@@ -59,7 +57,7 @@ provider lf ideState typ contents fp fo = withIndefiniteProgress lf title Cancel
                     , cfgDebug = True
                     , cfgPrinterOpts =
                         fillMissingPrinterOpts
-                            (lspPrinterOpts <> printerOpts)
+                            printerOpts
                             defaultPrinterOpts
                     }
 
@@ -92,7 +90,6 @@ provider lf ideState typ contents fp fo = withIndefiniteProgress lf title Cancel
   where
     fp' = fromNormalizedFilePath fp
     title = "Formatting " <> T.pack (takeFileName fp')
-    lspPrinterOpts = mempty{poIndentation = Just $ fo ^. tabSize}
     region = case typ of
         FormatText ->
             RegionIndices Nothing Nothing