haskell - 你如何用图表制作一个自我参照的箭头？

Question

我想做这样的事情：

p = p2 (0,0)
shaft = arc xDir (-5/6 @@ turn)
example = ( arrowBetween' (with & arrowShaft .~ shaft) p p)

但是，当然，我得到一个错误：“比例为零！Halp！”

我理解为什么这不适用于 的现有实现arrowBetween'，因为它调用arrow'，它通过端点之间的差异来缩放轴。但是，这应该是可能的。在图表中看到箭头循环回到它开始的位置并不少见。