From d5633e2395368410e1dfa22e5a046e655671a981 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 30 Sep 2026 03:21:31 +0200
Subject: init

---
 src/MdBlocks/Repository.hs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 src/MdBlocks/Repository.hs

(limited to 'src/MdBlocks/Repository.hs')

diff --git a/src/MdBlocks/Repository.hs b/src/MdBlocks/Repository.hs
new file mode 100644
index 0000000..9bacaf2
--- /dev/null
+++ b/src/MdBlocks/Repository.hs
@@ -0,0 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module MdBlocks.Repository where
+
+import Data.Text.IO as T
+import System.Directory
+
+import MdBlocks.Parser
+import MdBlocks.Types
+
+loadBlocks :: FilePath -> IO [Block]
+loadBlocks fp = do
+  txt <- T.readFile fp
+  pure (parseFile fp txt)
+
+findMarkdownFiles :: FilePath -> IO [FilePath]
+findMarkdownFiles root = do
+  xs <- listDirectory root
+  pure
+    [ root <> "/" <> x
+    | x <- xs
+    , takeExtension x == ".md"
+    ]
+  where
+    takeExtension =
+      reverse . takeWhile (/='.') . reverse
-- 
cgit v1.3.1