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
| [] -> ""
| _ ->
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}")
$"""node_{story.address()}->{arrow_link.Replace("&&&&", "\n")}"""
$"""node_{story.address()}->{arrow_link}"""
)
|> List.reduce(fun a b -> a + "\n" + b)