a bunch of stuff sorry

2023-12-28 01:00:25 +01:00 · 2023-12-28 01:00:25 +01:00 · 32edbb1816
commit 32edbb1816
parent 2910daf0c6
33 changed files with 4874 additions and 90 deletions
--- a/blog-meta/lib/Misc.hs
+++ b/blog-meta/lib/Misc.hs
@ -52,5 +52,6 @@ inlineText _                 = Nothing
 blockText :: Block -> Maybe Text
 blockText (Plain is)       = foldMap inlineText is
 blockText (Para  is)       = foldMap inlineText is
+--blockText Null             = Just ""
 blockText (RawBlock _ txt) = Just txt
 blockText _                = Nothing