ppPrimInst :: PrimInst -> Doc
ppPrimInst (PrimInst prim_name es)
  = mb ppPrimName prim_name <+> parens (commasep (map ppExpr es))
ppPrimInst :: PrimInst -> Doc
ppPrimInst (PrimInst prim_name es)
  = mb ppPrimName prim_name <+> parens (commasep (map ppExpr es))
ppPrimInst (PrimInst prim_name es)
  = mb ppPrimName prim_name <+> parens (commasep (map ppExpr es))