add table to list view

frontend/app/Page/ListCollection.hs

@@ -48,8 +48,8 @@ updateModel (FormSubmitted output) m =
 viewModel :: Model -> View Action
 viewModel m =
   div_ [] $
-    [ viewSchema m.schema,
-      viewPosts m.posts,
+    [ schemaTable m.schema m.posts,
+      viewSchema m.schema,
       viewForm m.input m.schema,
       viewInput m.input
     ]
@@ -63,8 +63,3 @@ viewForm input =
 viewInput :: A.Value -> View Action
 viewInput input =
   pre_ [] [text (toMisoString (A.encode input))]
-
-viewPosts :: [A.Value] -> View Action
-viewPosts posts = ol_ [] (viewPost <$> posts)
-  where
-    viewPost post = pre_ [] [text (toMisoString (A.encode post))]