From 0b29a7e82a8c2dcf9ce4f2fba3ec07896fa72397 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 10 Nov 2021 23:26:10 +0100
Subject: fail on missing map assets

(but not (yet?) on missing maps/entrypoints)
---
 src/Main.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 1862c5b..9fefd82 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -17,6 +17,7 @@ import           CheckDir                 (recursiveCheckDir)
 import WriteRepo (writeAdjustedRepository)
 import           Types                    (Level (..))
 import           Util                     (printPretty)
+import System.Exit (exitWith)
 
 -- | the options this cli tool can take
 data Options = Options
@@ -47,15 +48,16 @@ run options = do
 
   lints <- recursiveCheckDir repo entry
 
-  case out options of
-    Just outpath -> writeAdjustedRepository repo outpath lints
-    Nothing   -> pure ()
-
   if json options
     then printLB
     $ if pretty options then encodePretty lints else encode lints
     else printPretty (level, lints)
 
+  case out options of
+    Just outpath -> writeAdjustedRepository repo outpath lints
+                    >>= exitWith
+    Nothing -> pure ()
+
 -- | haskell's many string types are FUN …
 printLB :: LB.ByteString -> IO ()
 printLB a = putStrLn $ C8.unpack $ LB.toStrict a
-- 
cgit v1.2.3