Merge pull request #1049 from tolu/add-TeamCity-blocks

TC: Add open-close block helpers
fsprojects · Dec 22, 2015 · 1650c0e · 1650c0e
2 parents 8a907b9 + b742cb6
commit 1650c0e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/app/FakeLib/TeamCityHelper.fs b/src/app/FakeLib/TeamCityHelper.fs
@@ -25,6 +25,12 @@ let sendToTeamCity format message =
 let sendStrToTeamCity s = 
     if buildServer = TeamCity then postMessage (LogMessage(RemoveLineBreaks s, true))
 
+/// Open Named Block
+let sendOpenBlock = sendToTeamCity "##teamcity[blockOpened name='%s']"
+
+/// Close Named Block
+let sendCloseBlock = sendToTeamCity "##teamcity[blockClosed name='%s']"
+
 /// Sends an error to TeamCity
 let sendTeamCityError error = sendToTeamCity "##teamcity[buildStatus status='FAILURE' text='%s']" error