From 28d9517a89ede3be5bd46d8c28e33e5257d5198f Mon Sep 17 00:00:00 2001 From: patrick brisbin Date: Wed, 31 Jul 2024 12:26:25 -0400 Subject: [PATCH] Fail with specific exit-code on differences --- src/Restyler/CLI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Restyler/CLI.hs b/src/Restyler/CLI.hs index 37d13699..60e69b04 100644 --- a/src/Restyler/CLI.hs +++ b/src/Restyler/CLI.hs @@ -32,7 +32,7 @@ main withApp run = do failOnDifferences <- getFailOnDifferences if failOnDifferences - then ExitFailure 1 <$ logError "Differences found" + then ExitFailure 228 <$ logError "Differences found" else ExitSuccess <$ logWarn "Differences found" exitHandler :: MonadLogger m => AnnotatedException SomeException -> m ExitCode