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