, invitation_codes :: Array String

signupRequest :: String -> String -> RecoverBy -> String -> SignupRequest
signupRequest username password recoverBy captchaToken = { username, password, recoverBy, captchaToken }

signupRequest :: String -> String -> RecoverBy -> String -> Array String -> SignupRequest
signupRequest username password recoverBy captchaToken invcodes = { username, password, recoverBy, captchaToken, invitation_codes: invcodes }

      invcodes <- H.gets (_.invitationCodes)

            <*> pure invcodes