@@ -52,12 +52,12 @@ data InputOptions = InputOptions
5252
5353compile :: PSCMakeOptions -> IO ()
5454compile (PSCMakeOptions inputGlob inputForeignGlob outputDir opts usePrefix) = do
55− input <- concat <$> mapM glob inputGlob
55+ input <- globWarningOnMisses warnFileTypeNotFound inputGlob
5656 when (null input) $ do
5757 hPutStrLn stderr "psc: No input files."
5858 exitFailure
5959 moduleFiles <- readInput (InputOptions input)
60− inputForeign <- concat <$> mapM glob inputForeignGlob
60+ inputForeign <- globWarningOnMisses warnFileTypeNotFound inputForeignGlob
6161 foreignFiles <- forM inputForeign (\inFile -> (inFile,) <$> readFile inFile)
6262 case runWriterT (parseInputs moduleFiles foreignFiles) of
6363 Left errs -> do
@@ -78,6 +78,18 @@ compile (PSCMakeOptions inputGlob inputForeignGlob outputDir opts usePrefix) = d
7878 hPutStrLn stderr (P.prettyPrintMultipleWarnings (P.optionsVerboseErrors opts) warnings')
7979 exitSuccess
8080
81+warnFileTypeNotFound :: String -> IO ()
82+warnFileTypeNotFound = hPutStrLn stderr . ((++) "psc: No files found using pattern: ")
83+
84+globWarningOnMisses :: (String -> IO ()) -> [FilePath] -> IO [FilePath]
85+globWarningOnMisses warn = concatMapM globWithWarning
86+ where
87+ globWithWarning pattern = do
88+ paths <- glob pattern
89+ when (null paths) $ warn pattern
90+ return paths
91+ concatMapM f = liftM concat . mapM f
92+
8193readInput :: InputOptions -> IO [(Either P.RebuildPolicy FilePath, String)]
8294readInput InputOptions{..} = forM ioInputFiles $ \inFile -> (Right inFile, ) <$> readFile inFile
8395