@@ -62,15 +62,12 @@ compile (PCCOptions input _ outputDir opts usePrefix) = do
6262 hPutStrLn stderr (P.prettyPrintMultipleWarnings (P.optionsVerboseErrors opts) warnings)
6363 let filePathMap = M.fromList $ map (\(fp, P.Module _ _ mn _ _) -> (mn, fp)) ms
6464 makeActions = buildMakeActions outputDir filePathMap usePrefix
65− e <- runMake opts $ P.make makeActions (map snd ms)
65+ (e, warnings') <- runMake opts $ P.make makeActions (map snd ms)
6666 case e of
6767 Left errs -> do
6868 putStrLn (P.prettyPrintMultipleErrors (P.optionsVerboseErrors opts) errs)
6969 exitFailure
70− Right (_, warnings') -> do
71− when (P.nonEmpty warnings') $
72− putStrLn (P.prettyPrintMultipleWarnings (P.optionsVerboseErrors opts) warnings')
73− exitSuccess
70+ Right _ -> exitSuccess
7471
7572readInput :: InputOptions -> IO [(Either P.RebuildPolicy FilePath, String)]
7673readInput InputOptions{..} = forM ioInputFiles $ \inFile -> (Right inFile, ) <$> readUTF8File inFile