arrangeAsMenu broken

Summary

arrangeAsMenu does not work as expected.

Steps to reproduce

(viewInformation [] "some info" >>* [OnAction (Action "/test") (always $ return ())]) <<@ ArrangeAsMenu []

What is the current bug behavior?

A button is generated for the action:

image

What is the expected correct behavior?

A menu should be generated.

Possible fixes

There is some commented out leftover code. So the functionality seems not to have been implemented for the current layout rule system at all.