Exit with exitFailure when generation of .cabal file fails

sol · Mar 16, 2018 · 8954510 · 8954510
1 parent e14b0ad
commit 8954510
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## next
+  - Exit with `exitFailure` on `AlreadyGeneratedByNewerHpack` or
+    `ExistingCabalFileWasModifiedManually` in `Hpack.printResult`
+
 ## Changes in 0.28.1
   - GHC 8.4.1 compatibility
 

diff --git a/src/Hpack.hs b/src/Hpack.hs
@@ -139,6 +139,11 @@ printResult verbose r = do
       OutputUnchanged -> resultCabalFile r ++ " is up-to-date"
       AlreadyGeneratedByNewerHpack -> resultCabalFile r ++ " was generated with a newer version of hpack, please upgrade and try again."
       ExistingCabalFileWasModifiedManually -> resultCabalFile r ++ " was modified manually, please use --force to overwrite."
+  case resultStatus r of
+      Generated -> return ()
+      OutputUnchanged -> return ()
+      AlreadyGeneratedByNewerHpack -> exitFailure
+      ExistingCabalFileWasModifiedManually -> exitFailure
 
 printWarnings :: [String] -> IO ()
 printWarnings = mapM_ $ Utf8.hPutStrLn stderr . ("WARNING: " ++)