Labels of ortho edges are misplaced

[kukimik]

When the edge type is set to ortho, the labels are misplaced. See the label "home" and "away" in the example below.

> erd -i examples/nfldb.er -o out.png -f png -e ortho

This is really a Graphviz issue:

agerr(AGWARN, "Orthogonal edges do not currently handle edge labels. Try using xlabels.\n");

Following their suggestion, I tried to use A.XLabel instead of A.Label in this line:

erd/app/Main.hs

Line 62 in 06c7264

label = A.Label $ A.HtmlLabel $ H.Text $ withLabelFmt " %s " optss []

The labels are now placed correctly, though Graphviz chooses other routes for the edges:

So I believe XLabel should be used instead of Label, at least for orthogonal edges. I'm not a Graphviz guru and don't know what are the implications of using xlabels, and whether this needs some extra tweaking. Any suggestions?