-- -----------------------------------------------------------------------------
-- 4. Module Instantiations

ppInstance :: Instance -> Doc
ppInstance (Instance name delays_or_params insts)
  = ppIdent name <+> ppDelaysOrParams delays_or_params <> 
    char '\n' <> (ppInsts insts) <> semi
ppInstance :: Instance -> Doc
ppInstance (Instance name delays_or_params insts)
  = ppIdent name <+> ppDelaysOrParams delays_or_params <> 
    char '\n' <> (ppInsts insts) <> semi
ppInstance (Instance name delays_or_params insts)
  = ppIdent name <+> ppDelaysOrParams delays_or_params <> 
    char '\n' <> (ppInsts insts) <> semi