-- Pretty print a primitive operation
--
prettyPrim :: PrimFun a -> Doc
prettyPrim (PrimAdd _)            = text "(+)"
prettyPrim :: PrimFun a -> Doc
prettyPrim (PrimAdd _)            = text "(+)"
prettyPrim (PrimAdd _)            = text "(+)"