diff options
Diffstat (limited to 'frontend/app/Page/EditValue.hs')
| -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]) |