drop support for traversing directories

1 files changed, 0 insertions, 26 deletions

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