From 7ad5e1cd504b1d57ff3660f9eb81d2e7072ea4bf Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 23 Sep 2021 00:23:03 +0200
Subject: very naïve handling of directories

---
 src/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 969fa10..33db91c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -17,6 +17,7 @@ import           WithCli
 
 import           CheckMap                      (loadAndLintMap)
 import           Util                          (printPretty)
+import CheckDir (recursiveCheckDir)
 
 -- | the options this cli tool can take
 data Options = Options
@@ -40,7 +41,8 @@ main = withCli run
 
 run :: Options -> IO ()
 run options = do
-  lints <- loadAndLintMap (fromMaybe "example.json" (inpath options))
+  --lints <- loadAndLintMap (fromMaybe "example.json" (inpath options))
+  lints <- recursiveCheckDir (fromMaybe "example.json" (inpath options))
 
   if json options
     then printLB
-- 
cgit v1.2.3