Is there a way to display units in short label?

For example, forQuantityUnit[Quantity[1, "Meters"]], is there a way to display the results as"m" instead of "Meters"?

Answer

QuantityForm[QuantityUnit[Quantity[1, "Meters"]], "Abbreviation"]
(* m *)