-- -----------------------------------------------------------------------------
-- 3. Primitive Instances

ppPrimitiveInst :: PrimitiveInst -> Doc
ppPrimitiveInst (PrimitiveInst prim_type strength delay insts)
  = text (show prim_type) <+> mb ppDriveStrength strength <+>
    mb ppDelay delay <+> commasep (map ppPrimInst insts) <> semi
ppPrimitiveInst :: PrimitiveInst -> Doc
ppPrimitiveInst (PrimitiveInst prim_type strength delay insts)
  = text (show prim_type) <+> mb ppDriveStrength strength <+>
    mb ppDelay delay <+> commasep (map ppPrimInst insts) <> semi
ppPrimitiveInst (PrimitiveInst prim_type strength delay insts)
  = text (show prim_type) <+> mb ppDriveStrength strength <+>
    mb ppDelay delay <+> commasep (map ppPrimInst insts) <> semi