@@ -29,16 +29,16 @@ postForms
2929 :: ( IsBlob blob, HasJSContext (Performable m), MonadJSM (Performable m)
3030 , PerformEvent t m, TriggerEvent t m
3131 , Traversable f)
32− => Text
33− -> Event t (f (Map Text (FormValue blob)))
32+ => Text -- ^ The target url
33+ -> Event t (f (Map Text (FormValue blob))) -- ^ Maps of text keys and values that will be sent as "FormData"
3434 -> m (Event t (f XhrResponse))
35−postForms path payload = do
35+postForms url payload = do
3636 performMkRequestsAsync $ ffor payload $ \fs -> for fs $ \u -> liftJSM $ do
3737 fd <- FD.newFormData Nothing
3838 iforM_ u $ \k v -> case v of
3939 FormValue_Text t -> FD.append fd k t
4040 FormValue_File b fn -> FD.appendBlob fd k b fn
41− return $ xhrRequest "POST" path $ def & xhrRequestConfig_sendData .~ fd
41+ return $ xhrRequest "POST" url $ def & xhrRequestConfig_sendData .~ fd
4242
4343-- | Converts a File (e.g., the output of a 'FileInput') into a 'FormValue'. The filename will be included if it is available.
4444fileToFormValue :: MonadJSM m => File -> m (FormValue File)