FAKE: Escape special team city comments

teamCityEscape.fsx

let private teamCityEscapeChars =
    [ ('\'', "|'"); ('\r', "|r"); ('\n', "|n"); ('|', "||"); ('[', "|["); (']', "|]") ]
    |> Map.ofSeq

let private teamCityEscape s =
    
    let final = s |> Seq.map (fun c ->
        match teamCityEscapeChars |> Map.tryFind c with
            | Some(replacement) -> replacement
            | _ -> string(c)
        )
    
    String.Join("", final)