addInteractionMatch :: P.Interaction -> State FakeProvider ()
addInteractionMatch i = modify $ \p -> p
 { matchedInteractions = (i : matchedInteractions p)
 , verifiedInteractions = (i : verifiedInteractions p)
 }
addInteractionMatch :: P.Interaction -> State FakeProvider ()
addInteractionMatch i = modify $ \p -> p
 { matchedInteractions = (i : matchedInteractions p)
 , verifiedInteractions = (i : verifiedInteractions p)
 }
addInteractionMatch i = modify $ \p -> p
 { matchedInteractions = (i : matchedInteractions p)
 , verifiedInteractions = (i : verifiedInteractions p)
 }