put $ Map.foldr (foldr (\f -> (.)(f time) ) id) restGame consumed

It just runs a list of triggered events and changes the state ;)