diff options
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))] |