use backend REST library for frontend

1 files changed, 10 insertions, 8 deletions

diff --git a/frontend/app/Page/ListCollection.hs b/frontend/app/Page/ListCollection.hs
index 9acca3c..47a4649 100644
--- a/frontend/app/Page/ListCollection.hs
+++ b/frontend/app/Page/ListCollection.hs
@@ -7,29 +7,31 @@ module Page.ListCollection
   )
 where
 
-import Api
+import ACMS.API.REST.Collection qualified as API.REST.Collection
+import Control.Monad.Catch (SomeException, try)
 import Data.Aeson qualified as A
 import Data.Aeson.KeyMap qualified as AM
 import Effect (Eff)
 import Miso
+import Miso.String (MisoString)
 import Schema
 
 data Model = Model
-  { collection :: String,
-    input :: A.Value,
+  { collection :: MisoString,
+    input :: A.Object,
     schema :: Schema,
-    posts :: [A.Value]
+    posts :: [A.Object]
   }
   deriving (Show, Eq)
 
-initialModel :: String -> JSM (Either String Model)
+initialModel :: MisoString -> JSM (Either SomeException Model)
 initialModel collection = do
-  schema' <- fetchSchema
-  posts' <- fetchPosts
+  schema' <- try (API.REST.Collection.schema collection)
+  posts' <- try (API.REST.Collection.list collection)
   pure do
     schema <- schema'
     posts <- posts'
-    pure $ Model {input = A.Object AM.empty, ..}
+    pure $ Model {input = AM.empty, ..}
 
 newtype Action = Action (Model -> (Effect Action Model, [Eff]))