From d5f3f2333a4a167054c0a8556dfd8cd87f955595 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 4 Jun 2024 15:42:33 +0200
Subject: add table to list view

---
 frontend/app/Page/ListCollection.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'frontend/app/Page/ListCollection.hs')

diff --git a/frontend/app/Page/ListCollection.hs b/frontend/app/Page/ListCollection.hs
index 102973e..b647040 100644
--- a/frontend/app/Page/ListCollection.hs
+++ b/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))]
-- 
cgit v1.2.3