Throw an error when rzk.yaml include is empty

rzk-lang · Dec 11, 2023 · e3969d5 · e3969d5
1 parent 127da4e
commit e3969d5
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/rzk/src/Rzk/Main.hs b/rzk/src/Rzk/Main.hs
@@ -5,12 +5,13 @@
 
 module Rzk.Main where
 
-import           Control.Monad           (forM, when)
-import           Data.List               (sort)
-import qualified Data.Yaml               as Yaml
-import           System.Directory        (doesPathExist)
-import           System.FilePath.Glob    (glob)
-import qualified Language.Rzk.Syntax     as Rzk
+import           Control.Monad        (forM, when)
+import           Data.List            (sort)
+import qualified Data.Yaml            as Yaml
+import           System.Directory     (doesPathExist)
+import           System.FilePath.Glob (glob)
+
+import qualified Language.Rzk.Syntax  as Rzk
 import           Rzk.Project.Config
 import           Rzk.TypeCheck
 
@@ -69,6 +70,7 @@ parseRzkFilesOrStdin = \case
       then do
         putStrLn ("Using Rzk project stucture specified in " <> rzkYamlPath)
         paths <- extractFilesFromRzkYaml rzkYamlPath
+        when (null paths) (error $ "No files found in " <> rzkYamlPath)
         parseRzkFilesOrStdin paths
       else do
         rzkModule <- parseStdin