Don't run Fourmolu in debug mode

It prints to stderr, due to uses of `traceM`, and it's not nice to work around this downstream.

It's of questionable utility anyway. The fact that it mostly prints information about extensions, and does so in a hard-to-read format (a string displayed as a list!) indicates that it probably isn't widely used.

Author: georgefst

plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs

@@ -82,13 +82,12 @@ provider recorder plId ideState typ contents fp fo = withIndefiniteProgress titl
                 (exitCode, out, err) <- -- run Fourmolu
                     readCreateProcessWithExitCode
                         ( proc "fourmolu" $
-                            ["-d"]
+                            map ("-o" <>) fileOpts
                                 <> mwhen noCabal ["--no-cabal"]
                                 <> catMaybes
                                     [ ("--start-line=" <>) . show <$> regionStartLine region
                                     , ("--end-line=" <>) . show <$> regionEndLine region
                                     ]
-                                <> map ("-o" <>) fileOpts
                         ){cwd = Just $ takeDirectory fp'}
                         contents
                 case exitCode of
@@ -114,7 +113,7 @@ provider recorder plId ideState typ contents fp fo = withIndefiniteProgress titl
                         defaultConfig
                             { cfgDynOptions = map DynOption fileOpts
                             , cfgRegion = region
-                            , cfgDebug = True
+                            , cfgDebug = False
                             , cfgPrinterOpts =
                                 fillMissingPrinterOpts
                                     (printerOpts <> lspPrinterOpts)