auth.re

type authToken =
  | OAuth string
  | ApiKey string
[@@deriving yojson];

type auth =
  | Google authToken
  | Github authToken
[@@deriving yojson];

main.re

/* Error: Unbound constructor Google */
List.find
  (
    fun
    | Google (OAuth token) => true
    | Google (ApiKey token) => true
    | Github (OAuth token) => false
    | Github (ApiKey token) => false
  )
  parsedSession.auths;
  
/* Error: Unbound type constructor Auth.auth */

List.find
  (
    fun
    | Google (OAuth token) => true
    | Google (ApiKey token) => true
    | Github (OAuth token) => false
    | Github (ApiKey token) => false:
      Auth.auth => bool
  )
  parsedSession.auths;