remove unneeded fragments

Author: jchavarri

client/src/App.re

@@ -34,11 +34,7 @@ module Handlers = {
             authorName,
           )}
           decoder=PageExcerpts_bs.read_payload>
-          {(
-             excerpts => {
-               <PageExcerpts excerpts />;
-             }
-           )}
+          {(excerpts => <PageExcerpts excerpts />)}
         </Client.FetchRender>
       };
 

shared/PageAuthorExcerpts.re

@@ -13,16 +13,14 @@ module AuthorExcerptsLink = {
 [@react.component]
 let make = (~authors) => {
   <PageContainer>
-    <>
-      <h1> {React.string("Authors with excerpts")} </h1>
-      <Dom.Ul cls="list-disc list-inside">
-        {List.mapi(
-           (_i, author) =>
-             <li key={string_of_int(_i)}> <AuthorExcerptsLink author /> </li>,
-           authors,
-         )
-         |> React.list}
-      </Dom.Ul>
-    </>
+    <h1> {React.string("Authors with excerpts")} </h1>
+    <Dom.Ul cls="list-disc list-inside">
+      {List.mapi(
+         (_i, author) =>
+           <li key={string_of_int(_i)}> <AuthorExcerptsLink author /> </li>,
+         authors,
+       )
+       |> React.list}
+    </Dom.Ul>
   </PageContainer>;
 };

shared/PageCounter.re

@@ -13,15 +13,13 @@ let make = () => {
   );
 
   <PageContainer>
-    <>
-      <h1 key="header"> {React.string("Counter")} </h1>
-      <p key="desc">
-        {React.string(
-           "The HTML (including counter value) comes first from the OCaml native server"
-           ++ " then is updated by React after hydration",
-         )}
-      </p>
-      <p key="counter"> {React.string(string_of_int(count))} </p>
-    </>
+    <h1 key="header"> {React.string("Counter")} </h1>
+    <p key="desc">
+      {React.string(
+         "The HTML (including counter value) comes first from the OCaml native server"
+         ++ " then is updated by React after hydration",
+       )}
+    </p>
+    <p key="counter"> {React.string(string_of_int(count))} </p>
   </PageContainer>;
 };