Rendering entities

src/components/App.re

@@ -127,8 +127,13 @@ let renderLoadedWithData =
       | _ => []
       };
     Rendering.renderCollection(self, goto, arrayType, values);
-  | Hypermedia.ObjectType(_) =>
-    <div> (ReasonReact.string("TODO: Display the object")) </div>
+  | Hypermedia.ObjectType(objectType) =>
+    let obj =
+      switch (data) {
+      | Hypermedia.ValueObject(x) => x
+      | _ => {properties: []}
+      };
+    Rendering.renderEntity(self, goto, objectType, obj);
   | Hypermedia.RootType(rootSchema) =>
     Rendering.renderRoot(self, goto, rootSchema)
   | Hypermedia.PrimitiveType(ptype) =>

src/components/Rendering.re

@@ -74,4 +74,35 @@ let renderCollection =
       |> ReasonReact.array
     )
   </div>;
+};
+
+let renderEntity =
+    (
+      self: ReasonReact.self(_, _, _),
+      goto,
+      schema: Hypermedia.schemaObjectType,
+      data: Hypermedia.entity,
+    ) => {
+  let schema_title =
+    switch (schema.title) {
+    | Some(x) => x
+    | None => ""
+    };
+  <div>
+    <h1> (ReasonReact.string(schema_title)) </h1>
+    <div>
+    (
+      data.properties
+      |> List.map((property: Hypermedia.entityProperty) => {
+        let value = Hypermedia.as_string(property.value);
+        <div>
+          <div> (ReasonReact.string(property.name)) </div>
+          <div> (ReasonReact.string(value)) </div>
+        </div>
+      })
+      |> Array.of_list
+      |> ReasonReact.array
+    )
+    </div>
+  </div>;
 };
\ No newline at end of file