file2Block

2025-04-22 21:32:10 +08:00
parent 166429a005
commit 844b454e9f
2 changed files with 25 additions and 1 deletions
--- a/filter.hs
+++ b/filter.hs
@@ -5,7 +5,9 @@ import qualified Data.Text.IO as TIO
 import qualified Data.Text as T

 file2Block :: FilePath -> IO [Block]
-
+file2Block f = do
+  contents <- TIO.readFile f
+  return [Plain [Str contents]]

 doInclude :: Block -> IO Block
 doInclude cb@(Div (id, classes, namevals) contents) =