diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-10-12 16:29:05 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-10-12 17:10:53 +0200 |
| commit | f59cd4349c974c8ab7907b4852f5dc86ce4daeed (patch) | |
| tree | 7eaed9115b8ca5ae46792bbf4471bf007480d174 /frontend/app/Page | |
| parent | 29d9251b15d56f66d06551e158e992ace1856110 (diff) | |
add doc tests
Diffstat (limited to 'frontend/app/Page')
| -rw-r--r-- | frontend/app/Page/EditValue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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]) |