assertNoErrorResponse (Right msgs) =
    assertBool "Occured ErrorResponse" $ all (not . isError) msgs
  where
    isError (ErrorResponse _) = True
    isError _ = False
assertNoErrorResponse (Right msgs) =
    assertBool "Occured ErrorResponse" $ all (not . isError) msgs
  where
    isError (ErrorResponse _) = True
    isError _ = False
assertNoErrorResponse (Right msgs) =
    assertBool "Occured ErrorResponse" $ all (not . isError) msgs
  where
    isError (ErrorResponse _) = True
    isError _ = False