[SQSERVICES-1643] Servantify brig account API 3 - POST /activate

[battermann]

https://wearezeta.atlassian.net/browse/SQSERVICES-1643

Checklist

• Add a new entry in an appropriate subdirectory of changelog.d
• Read and follow the PR guidelines

[fisx]

Suggested change

	maybeActivationKeyTargetFromTuple :: (Maybe ActivationKey, Maybe Phone, Maybe Email) -> Parser ActivationTarget
	maybeActivationKeyTargetFromTuple = \case
	(Just key, _, _) -> pure $ ActivateKey key
	(_, _, Just email) -> pure $ ActivateEmail email
	(_, Just phone, _) -> pure $ ActivatePhone phone
	_ -> fail "key, email or phone must be present"
	maybeActivationKeyTargetFromTuple :: (Maybe ActivationKey, Maybe Phone, Maybe Email) -> Parser ActivationTarget
	maybeActivationKeyTargetFromTuple = \case
	(Just key, _, _) -> pure $ ActivateKey key
	(_, _, Just email) -> pure $ ActivateEmail email
	(_, Just phone, _) -> pure $ ActivatePhone phone
	_ -> fail "key, email or phone must be present"

I like symmetry! :)

[fisx]

does was a lie before, right? the json instances didn't know about this field?

[battermann]

Yeah, I noticed that, too.