findInteractionForRequest :: P.Request -> State FakeProvider ([(P.Interaction, [P.ValidationError])])
findInteractionForRequest req = gets $ \p -> map toTuple $ activeInteractions p
  where
    toTuple :: P.Interaction -> (P.Interaction, [P.ValidationError])
    toTuple interaction = (interaction, P.validateRequest (P.interactionRequest interaction) req)
findInteractionForRequest :: P.Request -> State FakeProvider ([(P.Interaction, [P.ValidationError])])
findInteractionForRequest req = gets $ \p -> map toTuple $ activeInteractions p
  where
    toTuple :: P.Interaction -> (P.Interaction, [P.ValidationError])
    toTuple interaction = (interaction, P.validateRequest (P.interactionRequest interaction) req)
findInteractionForRequest req = gets $ \p -> map toTuple $ activeInteractions p
  where
    toTuple :: P.Interaction -> (P.Interaction, [P.ValidationError])
    toTuple interaction = (interaction, P.validateRequest (P.interactionRequest interaction) req)