gql-server.re

[@gql.name "AuthRoles"]
[@gql.comment "Authentication roles for all users"]
[@gql.type]
type authRoles = [ | `SuperUser | `Administrator | `User];

[@gql.type]
module User = {
  type t = {
    id: string,
    email: string,
    name: string,
    role: option(authRoles),
  };
  let id = (root: t) => root.id;
  let email = (root: t) => root.email;
  let name = (root: t) => root.email;
  let role = (root: t) => root.role;
};

[@gql.type]
[@gql.comment "All queries for graphql"]
module Query = {
  let users = () => {/* return list of user types */};
  let userById: string => User.t =
    id => {id, email: "[email protected]", name: "james", role: None};
};