Operator form of HypergraphToGraph

[maxitg]

The problem

It would be nice to have an operator form of HypergraphToGraph, e.g.,

HypergraphToGraph["DirectedDistancePreserving"] @ {{1, 2, 3}, {3, 4, 5}}

would be equivalent to

HypergraphToGraph[{{1, 2, 3}, {3, 4, 5}}, "DirectedDistancePreserving"]