From 6cd0b9f6631d14f66c4b994771dee60ef74b270c Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 18 Jun 2023 22:11:01 +0200
Subject: configurable tocs

---
 Utils.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Utils.hs')

diff --git a/Utils.hs b/Utils.hs
index c72e080..37d6c21 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -62,3 +62,6 @@ hasUriScheme x = all id . zipWith (==) x . (++ ":")
 
 unAbsolute :: String -> String
 unAbsolute = dropWhile (== '/')
+
+withPandocBlocks :: ([Block] -> [Block]) -> Pandoc -> Pandoc
+withPandocBlocks f (Pandoc meta blocks) = Pandoc meta (f blocks)
-- 
cgit v1.2.3