1 files changed, 3 insertions, 0 deletions
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)