From 1f2824540e5ab7277c056696bc4189ba110bd53c Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Wed, 31 Dec 2014 19:44:41 +0100
Subject: [PATCH] Add --skip-upload flag

Easier for testing stackage the executable/library itself.
---
 Stackage/CompleteBuild.hs | 4 +++-
 app/stackage.hs           | 7 ++++++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Stackage/CompleteBuild.hs b/Stackage/CompleteBuild.hs
index b7b5550e..74717fab 100644
--- a/Stackage/CompleteBuild.hs
+++ b/Stackage/CompleteBuild.hs
@@ -28,6 +28,7 @@ import System.IO                 (BufferMode (LineBuffering), hSetBuffering)
 -- | Flags passed in from the command line.
 data BuildFlags = BuildFlags
     { bfEnableTests :: !Bool
+    , bfDoUpload    :: !Bool
     } deriving (Show)
 
 data BuildType = Nightly | LTS BumpType
@@ -182,7 +183,8 @@ completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
             }
     performBuild pb >>= mapM_ putStrLn
 
-    finallyUpload settings man pb
+    when (bfDoUpload buildFlags) $
+        finallyUpload settings man pb
 
 -- | The final part of the complete build process: uploading a bundle,
 -- docs and a distro to hackage.
diff --git a/app/stackage.hs b/app/stackage.hs
index 386c5644..e5ce61ca 100644
--- a/app/stackage.hs
+++ b/app/stackage.hs
@@ -61,4 +61,9 @@ main =
             not
             (switch
                  (long "skip-tests" <>
-                  help "Skip build and running the test suites"))
+                  help "Skip build and running the test suites")) <*>
+        fmap
+            not
+            (switch
+                 (long "skip-upload" <>
+                  help "Skip uploading bundle, docs, etc."))