@@ -163,6 +163,8 @@ completeBuild buildType = withManager tlsManagerSettings $ \man -> do
164 putStrLn $ "New ident: " ++ unSnapshotIdent ident
164 putStrLn $ "New ident: " ++ unSnapshotIdent ident
166+ postBuild `catchAny` print
166 putStrLn "Uploading docs to Stackage Server"
168 putStrLn "Uploading docs to Stackage Server"
167 res1 <- uploadDocs UploadDocs
169 res1 <- uploadDocs UploadDocs
168 { udServer = def
170 { udServer = def
@@ -188,5 +190,3 @@ completeBuild buildType = withManager tlsManagerSettings $ \man -> do
188 , udmDocDir = pbDocDir pb
190 , udmDocDir = pbDocDir pb
189 , udmPlan = plan
191 , udmPlan = plan
190 } man >>= print
192 } man >>= print