-- ---------------------------------------------------------------------

getPriorEnd :: Delta Pos
getPriorEnd = gets priorEndPosition
getPriorEnd :: Delta Pos
getPriorEnd = gets priorEndPosition
getPriorEnd = gets priorEndPosition