codeboss
/
WsParser_VS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update

This commit is contained in:
codeboss 2025-03-06 22:38:46 +08:00
parent bb592170c6
commit da9d3939b1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
AstConv/HtmlStruct.fs
View File

@ -1082,9 +1082,9 @@ open System.IO
match slice_ends with match slice_ends with
| [] -> "" | [] -> ""
| _ -> | _ ->
let arrow_link = slice_ends |> List.map(fun (a,b) -> $"node_{a.address()}&&&&node_{b.address()}") let arrow_link = slice_ends |> List.map(fun (a,b) -> $"node_{a.address()} node_{b.address()}")
|> List.reduce(fun a b -> $"{a}->{b}") |> List.reduce(fun a b -> $"{a}->{b}")
$"""node_{story.address()}->{arrow_link.Replace("&&&&", "\n")}""" $"""node_{story.address()}->{arrow_link}"""
) )
|> List.reduce(fun a b -> a + "\n" + b) |> List.reduce(fun a b -> a + "\n" + b)