upleToHandShakeResponse :: (String, String) -> HandShakeResponse
tupleToHandShakeResponse (serverType, apiVersion) =
  HandShakeResponse serverType apiVersion

tupleToHandShakeResponse :: (String, String) -> HandShakeResponse
tupleToHandShakeResponse (serverType, apiVersion) =
  HandShakeResponse serverType apiVersion
tupleToHandShakeResponse (serverType, apiVersion) =
  HandShakeResponse serverType apiVersion