Reset remote state on edit in async form

input-output-hk · Jan 18, 2022 · 3e3a4fd · 3e3a4fd
1 parent 8551d5f
commit 3e3a4fd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-dashboard-client/src/Halogen/Form.purs b/marlowe-dashboard-client/src/Halogen/Form.purs
@@ -129,7 +129,7 @@ mkAsyncForm { validator, render } =
         pure newRemote
       r -> pure r
     mapInput (flip AsyncInput remote')
-      $ Tuple (toMaybe remote') <<< mapFormHTML (flip AsyncInput remote')
+      $ Tuple (toMaybe remote') <<< mapFormHTML (flip AsyncInput NotAsked)
           <$> render input remote'
 
 -- | Combine two forms that operate on an produce tuples of each form's input