feat: Add strshow to Veneer.hs

414owen · Nov 12, 2023 · 313d26a · 313d26a
1 parent 955f613
commit 313d26a
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Builder/Monadic/Veneer.hs b/src/Text/Pandoc/Builder/Monadic/Veneer.hs
@@ -14,14 +14,17 @@ module Text.Pandoc.Builder.Monadic.Veneer
   , h4
   , h5
   , tableWithColspec
+  , strshow
   ) where
 
 import Text.Pandoc.Builder.Monadic.Verbatim
-  ( Builder, Inline, Block(..), ColSpec, header, simpleTable
-  , divWith, spanWith, nullAttr
+  ( Builder, Inline(..), Block(..), ColSpec, header, simpleTable
+  , divWith, spanWith, nullAttr, str
   )
 import Text.Pandoc.Builder.Monadic.Utils
 
+import qualified Data.Text as T
+
 -- | Build a level 1 header.
 h1 :: Builder Inline -> Builder Block
 h1 = header 1
@@ -63,3 +66,7 @@ div' = divWith nullAttr
 -- This would be named 'span', but that clashes with prelude's 'span'.
 span' :: Builder Inline -> Builder Inline
 span' = spanWith nullAttr
+
+-- | Build a v'Str' using a values's `Show` instance.
+strshow :: Show a => a -> Builder Inline
+strshow = str . T.pack . show