@@ -536,7 +536,7 @@ app :: forall m. (Applicative m, MonadError ErrorMessage m, MonadIO m) => Option
536app opts@Options{..} = do
536app opts@Options{..} = do
537 inputFiles <- concat <$> mapM (liftIO . glob) optionsInputFiles
537 inputFiles <- concat <$> mapM (liftIO . glob) optionsInputFiles
538 when (null inputFiles) . liftIO $ do
538 when (null inputFiles) . liftIO $ do
539− hPutStrLn stderr "psc: No input files."
539+ hPutStrLn stderr "psc-bundle: No input files."
540 exitFailure
540 exitFailure
541 input <- for inputFiles $ \filename -> do
541 input <- for inputFiles $ \filename -> do
542 js <- liftIO (readFile filename)
542 js <- liftIO (readFile filename)