From 57028c1acd194972ba2ac431617e80a4c549df10 Mon Sep 17 00:00:00 2001
From: Brandon Chinn <brandonchinn178@gmail.com>
Date: Fri, 5 Aug 2022 20:15:34 -0700
Subject: [PATCH] Make even more forwards-compatible

---
 .../src/Ide/Plugin/Fourmolu.hs                |  2 +-
 .../src/Ide/Plugin/Fourmolu/Shim.hs           | 30 +++++++++----------
 2 files changed, 15 insertions(+), 17 deletions(-)

diff --git a/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs b/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs
index f477b97d293..d62210d71ee 100644
--- a/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs
+++ b/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs
@@ -117,7 +117,7 @@ provider recorder plId ideState typ contents fp fo = withIndefiniteProgress titl
              in liftIO (loadConfigFile fp') >>= \case
                     ConfigLoaded file opts -> liftIO $ do
                         logWith recorder Info $ ConfigPath file
-                        format (toConfig opts)
+                        format opts
                     ConfigNotFound searchDirs -> liftIO $ do
                         logWith recorder Info $ NoConfigPath searchDirs
                         format emptyConfig
diff --git a/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu/Shim.hs b/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu/Shim.hs
index 7859666aaf5..976e522d93d 100644
--- a/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu/Shim.hs
+++ b/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu/Shim.hs
@@ -2,8 +2,8 @@
 
 module Ide.Plugin.Fourmolu.Shim (
   -- * FourmoluConfig
-  FourmoluConfig (..),
-  toConfig,
+  cfgFilePrinterOpts,
+  cfgFileFixities,
   emptyConfig,
 
   -- * FixityMap
@@ -21,29 +21,27 @@ import           Ormolu.Fixity
 
 {-- Backport FourmoluConfig --}
 
-#if MIN_VERSION_fourmolu(0,7,0)
-toConfig :: FourmoluConfig -> FourmoluConfig
-toConfig = id
-#else
-data FourmoluConfig = FourmoluConfig
-  { cfgFilePrinterOpts :: PrinterOptsPartial
-  , cfgFileFixities    :: FixityMap
-  }
+#if !MIN_VERSION_fourmolu(0,7,0)
+type FourmoluConfig = PrinterOptsPartial
 
-toConfig :: PrinterOptsPartial -> FourmoluConfig
-toConfig opts =
-  FourmoluConfig
-    { cfgFilePrinterOpts = opts
-    , cfgFileFixities = mempty
-    }
+cfgFilePrinterOpts :: FourmoluConfig -> PrinterOptsPartial
+cfgFilePrinterOpts = id
+
+cfgFileFixities :: FourmoluConfig -> FixityMap
+cfgFileFixities _ = mempty
 #endif
 
+#if MIN_VERSION_fourmolu(0,7,0)
 emptyConfig :: FourmoluConfig
 emptyConfig =
   FourmoluConfig
     { cfgFilePrinterOpts = mempty
     , cfgFileFixities = mempty
     }
+#else
+emptyConfig :: FourmoluConfig
+emptyConfig = mempty
+#endif
 
 {-- Backport FixityMap --}