@@ -28,6 +28,7 @@ import System.IO (BufferMode (LineBuffering), hSetBuffering)
28-- | Flags passed in from the command line.
28-- | Flags passed in from the command line.
29data BuildFlags = BuildFlags
29data BuildFlags = BuildFlags
30 { bfEnableTests :: !Bool
30 { bfEnableTests :: !Bool
31+ , bfDoUpload :: !Bool
31 } deriving (Show)
32 } deriving (Show)
33data BuildType = Nightly | LTS BumpType
34data BuildType = Nightly | LTS BumpType
@@ -182,7 +183,8 @@ completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
183 performBuild pb >>= mapM_ putStrLn
184 performBuild pb >>= mapM_ putStrLn
186+ when (bfDoUpload buildFlags) $
185− finallyUpload settings man pb
187+ finallyUpload settings man pb
187-- | The final part of the complete build process: uploading a bundle,
189-- | The final part of the complete build process: uploading a bundle,
188-- docs and a distro to hackage.
190-- docs and a distro to hackage.