diff --git a/AstConv/HtmlStruct.fs b/AstConv/HtmlStruct.fs index 228f2a6..fec994e 100644 --- a/AstConv/HtmlStruct.fs +++ b/AstConv/HtmlStruct.fs @@ -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)