ppAssignmentControl :: AssignmentControl -> Doc
ppAssignmentControl (DelayControl delay)
  = ppDelay delay
ppAssignmentControl :: AssignmentControl -> Doc
ppAssignmentControl (DelayControl delay)
  = ppDelay delay
ppAssignmentControl (DelayControl delay)
  = ppDelay delay