verifyInteractions :: State FakeProvider (Bool, [P.Request], [P.Interaction], [P.Interaction])
verifyInteractions = gets $ \p ->
  let isSuccess = (length $ mismatchedRequests p) == 0 && (length $ matchedInteractions p) == (length $ activeInteractions p)
  in (isSuccess, mismatchedRequests p, matchedInteractions p, activeInteractions p) where
verifyInteractions :: State FakeProvider (Bool, [P.Request], [P.Interaction], [P.Interaction])
verifyInteractions = gets $ \p ->
  let isSuccess = (length $ mismatchedRequests p) == 0 && (length $ matchedInteractions p) == (length $ activeInteractions p)
  in (isSuccess, mismatchedRequests p, matchedInteractions p, activeInteractions p) where
verifyInteractions = gets $ \p ->
  let isSuccess = (length $ mismatchedRequests p) == 0 && (length $ matchedInteractions p) == (length $ activeInteractions p)
  in (isSuccess, mismatchedRequests p, matchedInteractions p, activeInteractions p) where