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