Use specific exit-code, fix --dry-run logging

package.yaml

@@ -1,5 +1,5 @@
 name: restyler
-version: 0.4.2.0
+version: 0.4.2.1
 license: MIT
 
 language: GHC2021

restyler.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           restyler
-version:        0.4.2.0
+version:        0.4.2.1
 license:        MIT
 license-file:   LICENSE
 build-type:     Simple

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

src/Restyler/Restyler/Run.hs

@@ -342,20 +342,22 @@ dockerRunRestyler r@Restyler {..} WithProgress {..} = do
           [path] -> pack path
           paths -> show (length paths) <> " paths"
 
-  ec <-
-    if dryRun
-      then pure ExitSuccess
-      else case pItem of
-        DockerRunPathToStdout path -> do
-          logRunningOn [path]
-          (ec, out) <- dockerRunStdout $ args <> [prefix path]
-          ec <$ writeFile path (fixNewline out)
-        DockerRunPathsOverwrite sep paths -> do
-          logRunningOn paths
-          dockerRun $ args <> ["--" | sep] <> map prefix paths
-        DockerRunPathOverwrite sep path -> do
-          logRunningOn [path]
-          dockerRun $ args <> ["--" | sep] <> [prefix path]
+    unlessDryRun f
+      | dryRun = pure ExitSuccess
+      | otherwise = f
+
+  ec <- case pItem of
+    DockerRunPathToStdout path -> do
+      logRunningOn [path]
+      unlessDryRun $ do
+        (ec, out) <- dockerRunStdout $ args <> [prefix path]
+        ec <$ writeFile path (fixNewline out)
+    DockerRunPathsOverwrite sep paths -> do
+      logRunningOn paths
+      unlessDryRun $ dockerRun $ args <> ["--" | sep] <> map prefix paths
+    DockerRunPathOverwrite sep path -> do
+      logRunningOn [path]
+      unlessDryRun $ dockerRun $ args <> ["--" | sep] <> [prefix path]
 
   case ec of
     ExitSuccess -> pure ()