Local headLength / headGaps act like Output

[byorgey]

Consider:

{-# LANGUAGE NoMonomorphismRestriction #-}

import Diagrams.Prelude
import Diagrams.Backend.Cairo.CmdLine

dia = hcat' (with & sep .~ 1) [circle 1 # named 'A', circle 1 # named 'B']
      # connectOutside' (with & headGap .~ Local 0.3) 'A' 'B'

main = defaultMain (dia # frame 0.5)

I would expect a rather significant gap at the front of the arrow. However, rendering at 400x400 yields:

On the other hand,

{-# LANGUAGE NoMonomorphismRestriction #-}

import Diagrams.Prelude
import Diagrams.Backend.Cairo.CmdLine

dia = hcat' (with & sep .~ 1) [circle 1 # named 'A', circle 1 # named 'B']
      # connectOutside' (with & headGap .~ Local 30) 'A' 'B'

main = defaultMain (dia # frame 0.5)

renders as

[byorgey]

Note that tailGap, headLength, and tailLength all display similar behavior.