From f460d30844358ef65477457a106681dc420e6452 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 30 Sep 2026 05:02:08 +0200
Subject: drop support for traversing directories

---
 src/MdBlocks/Repository.hs | 26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100644 src/MdBlocks/Repository.hs

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

diff --git a/src/MdBlocks/Repository.hs b/src/MdBlocks/Repository.hs
deleted file mode 100644
index 9bacaf2..0000000
--- a/src/MdBlocks/Repository.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-{-# 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