From 7201f4940ee528fcf35a4eeba17f77df974c82c1 Mon Sep 17 00:00:00 2001
From: funwithcthulhu <29905917+funwithcthulhu@users.noreply.github.com>
Date: Thu, 21 May 2026 20:50:04 -0700
Subject: [PATCH] Fix GraphQL example schema construction

---
 example/i-graphql/README.md  | 7 ++++---
 example/i-graphql/graphql.ml | 7 ++++---
 example/r-graphql/README.md  | 9 ++++++---
 example/r-graphql/graphql.re | 9 ++++++---
 4 files changed, 20 insertions(+), 12 deletions(-)

diff --git a/example/i-graphql/README.md b/example/i-graphql/README.md
index db28bab9..a2586b68 100644
--- a/example/i-graphql/README.md
+++ b/example/i-graphql/README.md
@@ -17,7 +17,7 @@ let hardcoded_users = [
   {id = 2; name = "bob"};
 ]
 
-let user =
+let user () =
   Graphql_lwt.Schema.(obj "user"
     ~fields:[
       field "id"
@@ -30,7 +30,8 @@ let user =
         ~resolve:(fun _info user -> user.name);
     ])
 
-let schema =
+let schema () =
+  let user = user () in
   Graphql_lwt.Schema.(schema [
     field "users"
       ~typ:(non_null (list (non_null user)))
@@ -52,7 +53,7 @@ let () =
   @@ Dream.logger
   @@ Dream.origin_referrer_check
   @@ Dream.router [
-    Dream.any "/graphql" (Dream.graphql Lwt.return schema);
+    Dream.any "/graphql" (Dream.graphql Lwt.return (schema ()));
     Dream.get "/" (Dream.graphiql ~default_query "/graphql");
   ]
 ```
diff --git a/example/i-graphql/graphql.ml b/example/i-graphql/graphql.ml
index 45d52d82..5b2b6ec6 100644
--- a/example/i-graphql/graphql.ml
+++ b/example/i-graphql/graphql.ml
@@ -5,7 +5,7 @@ let hardcoded_users = [
   {id = 2; name = "bob"};
 ]
 
-let user =
+let user () =
   Graphql_lwt.Schema.(obj "user"
     ~fields:[
       field "id"
@@ -18,7 +18,8 @@ let user =
         ~resolve:(fun _info user -> user.name);
     ])
 
-let schema =
+let schema () =
+  let user = user () in
   Graphql_lwt.Schema.(schema [
     field "users"
       ~typ:(non_null (list (non_null user)))
@@ -40,6 +41,6 @@ let () =
   @@ Dream.logger
   @@ Dream.origin_referrer_check
   @@ Dream.router [
-    Dream.any "/graphql" (Dream.graphql Lwt.return schema);
+    Dream.any "/graphql" (Dream.graphql Lwt.return (schema ()));
     Dream.get "/" (Dream.graphiql ~default_query "/graphql");
   ]
diff --git a/example/r-graphql/README.md b/example/r-graphql/README.md
index 7faa6ec8..1fd74106 100644
--- a/example/r-graphql/README.md
+++ b/example/r-graphql/README.md
@@ -20,7 +20,7 @@ let hardcoded_users = [
   {id: 2, name: "bob"},
 ];
 
-let user =
+let user = () =>
   Graphql_lwt.Schema.(
     obj("user", ~fields=
       [
@@ -35,7 +35,9 @@ let user =
     )
   );
 
-let schema =
+let schema = () => {
+  let user = user();
+
   Graphql_lwt.Schema.(
     schema([
       field(
@@ -54,6 +56,7 @@ let schema =
       }),
     ])
   );
+};
 
 let default_query =
   "{\\n  users {\\n    name\\n    id\\n  }\\n}\\n";
@@ -63,7 +66,7 @@ let () =
   @@ Dream.logger
   @@ Dream.origin_referrer_check
   @@ Dream.router([
-    Dream.any("/graphql", Dream.graphql(Lwt.return, schema)),
+    Dream.any("/graphql", Dream.graphql(Lwt.return, schema())),
     Dream.get("/", Dream.graphiql(~default_query, "/graphql")),
   ]);
 ```
diff --git a/example/r-graphql/graphql.re b/example/r-graphql/graphql.re
index d4f14f05..2c7c7074 100644
--- a/example/r-graphql/graphql.re
+++ b/example/r-graphql/graphql.re
@@ -8,7 +8,7 @@ let hardcoded_users = [
   {id: 2, name: "bob"},
 ];
 
-let user =
+let user = () =>
   Graphql_lwt.Schema.(
     obj("user", ~fields=
       [
@@ -23,7 +23,9 @@ let user =
     )
   );
 
-let schema =
+let schema = () => {
+  let user = user();
+
   Graphql_lwt.Schema.(
     schema([
       field(
@@ -42,6 +44,7 @@ let schema =
       }),
     ])
   );
+};
 
 let default_query =
   "{\\n  users {\\n    name\\n    id\\n  }\\n}\\n";
@@ -51,6 +54,6 @@ let () =
   @@ Dream.logger
   @@ Dream.origin_referrer_check
   @@ Dream.router([
-    Dream.any("/graphql", Dream.graphql(Lwt.return, schema)),
+    Dream.any("/graphql", Dream.graphql(Lwt.return, schema())),
     Dream.get("/", Dream.graphiql(~default_query, "/graphql")),
   ]);