From 166429a005c287dbf784d6475ef5695da1bfcb29 Mon Sep 17 00:00:00 2001
From: Yu Cong <sxlxcsxlxc@gmail.com>
Date: Mon, 21 Apr 2025 15:04:39 +0800
Subject: [PATCH] ...

---
 filter.hs | 9 ++++++---
 input.md  | 4 ++++
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/filter.hs b/filter.hs
index d235966..5116c38 100755
--- a/filter.hs
+++ b/filter.hs
@@ -4,11 +4,14 @@ import Text.Pandoc.JSON
 import qualified Data.Text.IO as TIO
 import qualified Data.Text as T
 
+file2Block :: FilePath -> IO [Block]
+
+
 doInclude :: Block -> IO Block
-doInclude cb@(CodeBlock (id, classes, namevals) contents) =
+doInclude cb@(Div (id, classes, namevals) contents) =
   case lookup (T.pack "include") namevals of
-       Just f     -> CodeBlock (id, classes, namevals) <$>
-                      TIO.readFile (T.unpack f)
+       Just f     -> Div (id, classes, namevals) <$>
+                      file2Block (T.unpack f)
        Nothing    -> return cb
 doInclude x = return x
 
diff --git a/input.md b/input.md
index 2b8be09..b5f778b 100644
--- a/input.md
+++ b/input.md
@@ -1,5 +1,9 @@
 Here's the pandoc README:
 
+```haskell {include="filter.hs" style="background-color: red"}
+Foo:: Div -> Div
+```
+
 :::{include="filter.hs"}
 :::