submit on editField (AccountSettings)

2019-03-01 13:13:21 -06:00 · 2019-03-01 13:13:21 -06:00 · 557cc94e5d
parent a44cd8e2b3
commit 557cc94e5d
5 changed files with 4 additions and 2 deletions
--- a/purs/src/Component/AccountSettings.purs
+++ b/purs/src/Component/AccountSettings.purs
@ -81,6 +81,8 @@ usetting u' =
      EarchiveDefault e -> _ { archiveDefault = e }
      EprivateDefault e -> _ { privateDefault = e }
      EprivacyLock e -> _ { privacyLock = e }
+    us <- use _us
+    void $ H.liftAff (editAccountSettings us)

  handleAction (USubmit e) = do
    us <- use _us
--- a/static/js/app.min.js
+++ b/static/js/app.min.js
--- a/static/js/app.min.js.gz
+++ b/static/js/app.min.js.gz
--- a/static/js/app.min.map
+++ b/static/js/app.min.map
--- a/static/js/app.min.map.gz
+++ b/static/js/app.min.map.gz