diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-06-04 15:42:33 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-06-04 15:42:33 +0200 |
| commit | d5f3f2333a4a167054c0a8556dfd8cd87f955595 (patch) | |
| tree | aeb587ac7fb8c606c5e7f042459a784aff75a896 /frontend/app/Page/ListCollection.hs | |
| parent | ed753b04104b27a9b258f174a501e2ae058b41ee (diff) | |
add table to list view
Diffstat (limited to 'frontend/app/Page/ListCollection.hs')
| -rw-r--r-- | frontend/app/Page/ListCollection.hs | 9 |
1 files changed, 2 insertions, 7 deletions
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))] |