addInteraction :: P.Interaction -> State FakeProvider ([P.Interaction])
addInteraction i = do
  modify $ \p -> p { activeInteractions = (i : activeInteractions p) }
  gets $ \p -> activeInteractions p
addInteraction :: P.Interaction -> State FakeProvider ([P.Interaction])
addInteraction i = do
  modify $ \p -> p { activeInteractions = (i : activeInteractions p) }
  gets $ \p -> activeInteractions p
addInteraction i = do
  modify $ \p -> p { activeInteractions = (i : activeInteractions p) }
  gets $ \p -> activeInteractions p