ppPrimName :: PrimInstName -> Doc
ppPrimName (PrimInstName x r)
  = ppIdent x <> mb ppRange r
ppPrimName :: PrimInstName -> Doc
ppPrimName (PrimInstName x r)
  = ppIdent x <> mb ppRange r
ppPrimName (PrimInstName x r)
  = ppIdent x <> mb ppRange r