haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-20 03:01:56 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Split off uploading into separate finallyUpload

Browse Source
This commit is contained in:
Chris Done 2014-12-31 19:42:53 +01:00
parent a16bc2b13f
commit fb73435572
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Stackage/CompleteBuild.hs
View File

@ -155,12 +155,14 @@ justCheck = withManager tlsManagerSettings $ \man -> do
putStrLn "Plan seems valid!" putStrLn "Plan seems valid!"
-- | Make a complete plan, build, test and upload bundle, docs and
-- distro.
completeBuild :: BuildType -> BuildFlags -> IO () completeBuild :: BuildType -> BuildFlags -> IO ()
completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
hSetBuffering stdout LineBuffering hSetBuffering stdout LineBuffering
putStrLn $ "Loading settings for: " ++ tshow buildType putStrLn $ "Loading settings for: " ++ tshow buildType
Settings {..} <- getSettings man buildType settings@Settings {..} <- getSettings man buildType
putStrLn $ "Writing build plan to: " ++ fpToText planFile putStrLn $ "Writing build plan to: " ++ fpToText planFile
encodeFile (fpToString planFile) plan encodeFile (fpToString planFile) plan
@ -180,6 +182,12 @@ completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
} }
performBuild pb >>= mapM_ putStrLn performBuild pb >>= mapM_ putStrLn
finallyUpload settings man pb
-- | The final part of the complete build process: uploading a bundle,
-- docs and a distro to hackage.
finallyUpload :: Settings -> Manager -> PerformBuild -> IO ()
finallyUpload Settings{..} man pb = do
putStrLn "Uploading bundle to Stackage Server" putStrLn "Uploading bundle to Stackage Server"
token <- readFile "/auth-token" token <- readFile "/auth-token"
now <- epochTime now <- epochTime