very naïve handling of directories

1 files changed, 3 insertions, 1 deletions

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