assertContains
    :: Either Error [ServerMessage]
    -> (ServerMessage -> Bool)
    -> String -> Assertion
assertContains (Left e) _ _ = assertFailure $ "Got Error" ++ show e
assertContains
    :: Either Error [ServerMessage]
    -> (ServerMessage -> Bool)
    -> String -> Assertion
assertContains (Left e) _ _ = assertFailure $ "Got Error" ++ show e
assertContains (Left e) _ _ = assertFailure $ "Got Error" ++ show e