@@ -36,6 +36,7 @@ import Control.Monad.Trans.Except
36import Control.Monad.IO.Class
36import Control.Monad.IO.Class
38import System.FilePath (takeFileName, takeDirectory)
38import System.FilePath (takeFileName, takeDirectory)
39+import System.FilePath.Glob (glob)
39import System.Exit (exitFailure)
40import System.Exit (exitFailure)
40import System.IO (stderr, hPutStrLn)
41import System.IO (stderr, hPutStrLn)
41import System.Directory (createDirectoryIfMissing)
42import System.Directory (createDirectoryIfMissing)
@@ -533,7 +534,11 @@ codeGen Options{..} ms = renderToString (NN (JSSourceElementsTop (prelude ++ con
533-- and generates and prints the final Javascript bundle.
534-- and generates and prints the final Javascript bundle.
534app :: forall m. (Applicative m, MonadError ErrorMessage m, MonadIO m) => Options -> m String
535app :: forall m. (Applicative m, MonadError ErrorMessage m, MonadIO m) => Options -> m String
535app opts@Options{..} = do
536app opts@Options{..} = do
536− input <- for optionsInputFiles $ \filename -> do
537+ inputFiles <- concat <$> mapM (liftIO . glob) optionsInputFiles
538+ when (null inputFiles) . liftIO $ do
539+ hPutStrLn stderr "psc: No input files."
541+ input <- for inputFiles $ \filename -> do
537 js <- liftIO (readFile filename)
542 js <- liftIO (readFile filename)
538 ast <- fromRight (parse js filename)
543 ast <- fromRight (parse js filename)
539 mid <- guessModuleIdentifier filename
544 mid <- guessModuleIdentifier filename