@@ -57,6 +57,8 @@ data Settings = Settings
5757 , setArgs :: Text -> UploadBundle -> UploadBundle
5858 , postBuild :: IO ()
5959 , distroName :: Text -- ^ distro name on Hackage
60+ , snapshotType :: SnapshotType
61+ , bundleDest :: FilePath
6062 }
6163
6264nightlyPlanFile :: Text -- ^ day
@@ -81,6 +83,8 @@ nightlySettings day plan' = Settings
8183 , plan = plan'
8284 , postBuild = return ()
8385 , distroName = "Stackage"
86+ , snapshotType = STNightly
87+ , bundleDest = fpFromText $ "stackage-nightly-" ++ tshow day ++ ".bundle"
8488 }
8589 where
8690 slug' = "nightly-" ++ day
@@ -142,6 +146,10 @@ getSettings man (LTS bumpType) = do
142146 putStrLn "Pushing to Git repository"
143147 git ["push"]
144148 , distroName = "LTSHaskell"
149+ , snapshotType =
150+ case new of
151+ LTSVer x y -> STLTS x y
152+ , bundleDest = fpFromText $ "stackage-lts-" ++ tshow new ++ ".bundle"
145153 }
146154
147155data LTSVer = LTSVer !Int !Int
@@ -231,7 +239,16 @@ completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
231239 checkBuildPlan plan
232240
233241 putStrLn "Performing build"
234− performBuild (getPerformBuild buildFlags settings) >>= mapM_ putStrLn
242+ let pb = getPerformBuild buildFlags settings
243+ performBuild pb >>= mapM_ putStrLn
244+
245+ putStrLn $ "Creating bundle (v2) at: " ++ fpToText bundleDest
246+ createBundleV2 CreateBundleV2
247+ { cb2Plan = plan
248+ , cb2Type = snapshotType
249+ , cb2DocsDir = pbDocDir pb
250+ , cb2Dest = bundleDest
251+ }
235252
236253 when (bfDoUpload buildFlags) $
237254 finallyUpload settings man