code.elm

-- GraphQL
type alias User =
    { username : Maybe String
    , email : Maybe String
    , id : Maybe EatYourDay.Scalar.Id
    }

type alias SignIn =
    { user : Maybe User
    , token : Maybe String
    }

credential : SelectionSet SignIn EatYourDay.Object.SignIn
credential =
    SelectionSet.succeed SignIn
        |> with (SignIn.user user)
        |> with SignIn.token

user : SelectionSet User EatYourDay.Object.User
user =
    SelectionSet.succeed User
        |> with User.username
        |> with User.email
        |> with User.id

signInMutation : Model -> SelectionSet (Maybe SignIn) RootMutation
signInMutation { form } =
   Mutation.signIn { input = { signInParam = form.email, password = form.password }} credential