setInteractions :: [P.Interaction] -> State FakeProvider ()
setInteractions is = modify $ \p -> p { activeInteractions = is }
setInteractions :: [P.Interaction] -> State FakeProvider ()
setInteractions is = modify $ \p -> p { activeInteractions = is }
setInteractions is = modify $ \p -> p { activeInteractions = is }