ppDriveStrength :: DriveStrength -> Doc
ppDriveStrength (Strength01 s0 s1)
  = parens (ppStrength0 s0 <> comma <+> ppStrength1 s1)
ppDriveStrength :: DriveStrength -> Doc
ppDriveStrength (Strength01 s0 s1)
  = parens (ppStrength0 s0 <> comma <+> ppStrength1 s1)
ppDriveStrength (Strength01 s0 s1)
  = parens (ppStrength0 s0 <> comma <+> ppStrength1 s1)