From 0ada2403b7bdbcc9d1449d8b83fafc398d304221 Mon Sep 17 00:00:00 2001
From: Owen Shepherd <owen@owen.cafe>
Date: Sun, 12 Nov 2023 13:16:56 +0100
Subject: [PATCH] chore: Switch to DList.singleton

---
 src/Text/Pandoc/Builder/Monadic/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Builder/Monadic/Internal.hs b/src/Text/Pandoc/Builder/Monadic/Internal.hs
index 5954526..814fcff 100644
--- a/src/Text/Pandoc/Builder/Monadic/Internal.hs
+++ b/src/Text/Pandoc/Builder/Monadic/Internal.hs
@@ -78,7 +78,7 @@ buildMany = Builder . traverse_ (tell . pure)
 
 -- | Write a single element to a t'Builder'.
 tellOne :: a -> Builder a
-tellOne = Builder . tell . pure
+tellOne = Builder . tell . DList.singleton
 
 -- | Write multiple element to a t'Builder'.
 tellAll :: DList a -> Builder a