Adjusting trail from the end has no effect

[byorgey]

{-# LANGUAGE NoMonomorphismRestriction #-}
-----------------------------------------------------------------------------

module Main where

import Diagrams.Prelude
import Diagrams.Backend.SVG
import Diagrams.Backend.SVG.CmdLine

l1 = straight unitX
l2 = straight unitX # rotateBy (1/12)
t = trailFromSegments [l1, l2]

t1 = adjust t with { adjMethod = ByAbsolute (-0.5), adjSide = Start}

t2 = adjust t with { adjMethod = ByAbsolute (-0.5), adjSide = End}

ex = strokeT t === strutY 0.25
               === strokeT t1 === strutY 0.25
               === strokeT t2

main = defaultMain $ ex # centerXY # pad 1.1

produces:

Note how the final trail looks identical to the first; instead, its end should be shorter.

The bug is probably somewhere in the Sectionable instance for Trail.

[jeffreyrosenbluth]

Repaired, added reverseDomain to Sectionable instance of Trail