1
0
Fork 0

Don‘t publish initialisation

This commit is contained in:
Malte 2022-11-06 03:17:03 +01:00
parent 307b424914
commit 52ee09f2e8

View file

@ -140,7 +140,8 @@ main = do
)
: [m "Including the PRs: " <> intercalateMsgPlain ", " (fmap prHTML prs) | not $ null prs]
Nothing -> do
pure $ Just $ m "Initiated database for branch " <> branchHTML branch <> m " at " <> commitHTML commit
putTextLn $ "Initiated database for branch " <> branch <> " at " <> fst (commitHTML commit)
pure Nothing
let message = unlinesMsg messages
when (null messages) do
putTextLn "No advances!"