Format: use simpler structure for ExtensionsDiff.

1 files changed, 4 insertions, 5 deletions

diff --git a/pandoc-lua-engine/test/Tests/Lua/Writer.hs b/pandoc-lua-engine/test/Tests/Lua/Writer.hs
index 97d772bc5..19db66da0 100644
--- a/pandoc-lua-engine/test/Tests/Lua/Writer.hs
+++ b/pandoc-lua-engine/test/Tests/Lua/Writer.hs
@@ -13,7 +13,7 @@ module Tests.Lua.Writer (tests) where
 import Data.Default (Default (def))
 import Data.Maybe (fromMaybe)
 import Text.Pandoc.Class (runIOorExplode, readFileStrict)
-import Text.Pandoc.Extensions (Extension (..))
+import Text.Pandoc.Extensions (Extension (..), extensionsFromList)
 import Text.Pandoc.Format (ExtensionsDiff (..), FlavoredFormat (..),
                            applyExtensionsDiff)
 import Text.Pandoc.Lua (writeCustom)
@@ -64,8 +64,7 @@ tests =
         pure . BL.fromStrict . UTF8.fromText $ fromMaybe "" template)
 
   , testCase "preset extensions" $ do
-      let ediff = ExtensionsDiff{extsToEnable = [], extsToDisable = []}
-      let format = FlavoredFormat "extensions.lua" ediff
+      let format = FlavoredFormat "extensions.lua" mempty
       result <- runIOorExplode $ writeCustom "extensions.lua" >>= \case
           (TextWriter write, extsConf, _) -> do
             exts <- applyExtensionsDiff extsConf format
@@ -74,8 +73,8 @@ tests =
       result @?= "smart extension is enabled;\ncitations extension is disabled\n"
   , testCase "modified extensions" $ do
       let ediff = ExtensionsDiff
-            { extsToEnable = [Ext_citations]
-            , extsToDisable = []
+            { extsToEnable = extensionsFromList [Ext_citations]
+            , extsToDisable = mempty
             }
       let format = FlavoredFormat "extensions.lua" ediff
       result <- runIOorExplode $ writeCustom "extensions.lua" >>= \case