From f59cd4349c974c8ab7907b4852f5dc86ce4daeed Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Sat, 12 Oct 2024 16:29:05 +0200 Subject: add doc tests --- frontend/app/Page/EditValue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'frontend/app') diff --git a/frontend/app/Page/EditValue.hs b/frontend/app/Page/EditValue.hs index 8c91955..feacd4a 100644 --- a/frontend/app/Page/EditValue.hs +++ b/frontend/app/Page/EditValue.hs @@ -45,7 +45,7 @@ update__formSubmitted :: A.Object -> Action update__formSubmitted output = Action $ \m -> (m <# do update__entityWritten <$> try (API.REST.Collection.update m.collection m.fileName output), []) -update__entityWritten :: Either SomeException () -> Action +update__entityWritten :: Either SomeException A.Object -> Action update__entityWritten _ = Action $ \m -> (noEff m, []) updateModel :: Action -> Model -> (Effect Action Model, [Eff]) -- cgit v1.2.3