@@ -76,13 +76,13 @@ printWarningsAndErrors verbose True warnings errors = do
7676
7777compile :: PSCMakeOptions -> IO ()
7878compile PSCMakeOptions{..} = do
79− input <- globWarningOnMisses warnFileTypeNotFound pscmInput
80− when (null input) $ do
79+ input <- globWarningOnMisses (unless pscmJSONErrors . warnFileTypeNotFound) pscmInput
80+ when (null input && not pscmJSONErrors) $ do
8181 hPutStrLn stderr "psc: No input files."
8282 exitFailure
8383 let (jsFiles, pursFiles) = partition (isSuffixOf ".js") input
8484 moduleFiles <- readInput (InputOptions pursFiles)
85− inputForeign <- globWarningOnMisses warnFileTypeNotFound pscmForeignInput
85+ inputForeign <- globWarningOnMisses (unless pscmJSONErrors . warnFileTypeNotFound) pscmForeignInput
8686 foreignFiles <- forM (inputForeign ++ jsFiles) (\inFile -> (inFile,) <$> readUTF8File inFile)
8787 (makeErrors, makeWarnings) <- runMake pscmOpts $ do
8888 (ms, foreigns) <- parseInputs moduleFiles foreignFiles