interface Action
    exposes [ Action, none, update, map ]
    imports []

Action state : [ None, Update state ]

none : Action *
none = None

update : state -> Action state
update = Update

map : Action a, (a -> b) -> Action b
map = \action, transform ->
    when action is
        None ->
            None

        Update state ->
            Update (transform state)