Don‘t publish initialisation
This commit is contained in:
parent
307b424914
commit
52ee09f2e8
1 changed files with 2 additions and 1 deletions
|
@ -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!"
|
||||
|
|
Loading…
Reference in a new issue