g_ql.elm

import EatYourDay.Mutation as Mutation
import EatYourDay.Object 
import EatYourDay.Object.SignIn as SignIn 
import EatYourDay.Object.User as EatYourDayUser
import EatYourDay.Scalar exposing(Id(..))

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


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

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


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


signInMutation : Model -> SelectionSet LoginResp RootMutation
signInMutation { form } =
    Mutation.selection LoginResp
        |> with (Mutation.signIn { input = { password = form.password, signInParam = form.email }} credential)