Skip to content

List of Object makes an error (Tried to treat object as if it were leaf field) #219

@nishirken

Description

@nishirken

this code:

type Friend = Object "Friend" '[]
  '[ Field "id" Text.Text, Field "email" Text.Text ]

type User = Object "User" '[]
  '[ Field "id" Text.Text, Field "email" Text.Text, Field "friends" (List Friend) ]

type UserQuery = Object "UserQuery" '[]
  '[ Argument "id" Text.Text :> Field "user" (Maybe User) ]

friendHandler :: DbUser.DbUser -> Handler IO Friend
friendHandler DbUser.DbUser {..} = pure $ pure ((Text.pack . show) _id) :<> pure _email

friendsHandler :: [DbUser.DbUser] -> Handler IO (List Friend)
friendsHandler friends = pure $ map friendHandler friends

userHandler :: Int -> Text.Text -> [DbUser.DbUser] -> Handler IO User
userHandler id email friends = pure $
  pure ((Text.pack . show) id) :<> pure email :<> friendsHandler friends

userQueryHandler :: PSQL.Connection -> Handler IO UserQuery
userQueryHandler dbConn = pure $ \userId -> do
  result <- Db.getUserById dbConn (read @Int $ Text.unpack userId)
  case result of
    [DbUser.DbUser {..}] -> do
      friends <- Db.getUsersByIds dbConn _friendsIds
      pure $ Just $ userHandler _id _email friends
    _ -> pure Nothing

and query:

{
  user(id: "1") {
    id
    email
    friends
  }
}

compiled successfully, but with errors in a response:

{
  "data": {
    "user": {
      "email": "[email protected]",
      "id": "1",
      "friends": [
        null
      ]
    }
  },
  "errors": [
    {
      "message": "Tried to treat object as if it were leaf field."
    }
  ]
}

But if i change type

type User = Object "User" '[]
  '[ Field "id" Text.Text, Field "email" Text.Text, Field "friends" (List Text.Text) ]

everything works

So, what I did wrong and what this error means? Thanks for any help.

ghc - 8.6.5
graphql-api-0.3.0

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions