From d321ce33e6071a25e055b83c9d18c7d7b577fb34 Mon Sep 17 00:00:00 2001
From: Keryan Didier <keryan.didier@ocamlpro.com>
Date: Thu, 13 Jun 2024 18:04:50 +0200
Subject: [PATCH] backward compatibility

---
 examples/suncities.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/suncities.ml b/examples/suncities.ml
index fd49f5a..73e3e13 100644
--- a/examples/suncities.ml
+++ b/examples/suncities.ml
@@ -404,7 +404,7 @@ let scene =
     sun_angle_z;
     blocks;
     shadows = [];
-    projection = fun Coord.{x;y;_} -> (x,y);
+    projection = fun ({x;y;_} : Coord.t) -> (x,y);
   }
   in
   let shadows = shadow_plane scene in