Matrix-Programs/Scylla
1
0
Fork 0
Code Issues 9 Pull Requests Releases Wiki Activity

Attempt to fix image "double sending" issue.

Browse Source
This commit is contained in:
Danila Fedorin 2019-01-24 21:14:02 -08:00
parent cf05f9dc4a
commit 28c829c2c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.elm
View File

@ -114,7 +114,7 @@ updateFileUploadComplete : Model -> RoomId -> String -> (Result Http.Error Strin
updateFileUploadComplete m rid mime ur = updateFileUploadComplete m rid mime ur =
let let
command = case ur of command = case ur of
Ok u -> sendFileMessage m.apiUrl (Maybe.withDefault "" m.token) m.transactionId rid mime u Ok u -> sendFileMessage m.apiUrl (Maybe.withDefault "" m.token) (m.transactionId + 1) rid mime u
_ -> Cmd.none _ -> Cmd.none
newErrors = case ur of newErrors = case ur of
Err e -> [ "Error uploading file. Please check your internet connection and try again." ] Err e -> [ "Error uploading file. Please check your internet connection and try again." ]
@ -126,7 +126,7 @@ updateImageUploadComplete : Model -> RoomId -> String -> (Result Http.Error Stri
updateImageUploadComplete m rid mime ur = updateImageUploadComplete m rid mime ur =
let let
command = case ur of command = case ur of
Ok u -> sendImageMessage m.apiUrl (Maybe.withDefault "" m.token) m.transactionId rid mime u Ok u -> sendImageMessage m.apiUrl (Maybe.withDefault "" m.token) (m.transactionId + 1) rid mime u
_ -> Cmd.none _ -> Cmd.none
newErrors = case ur of newErrors = case ur of
Err e -> [ "Error uploading image. Please check your internet connection and try again." ] Err e -> [ "Error uploading image. Please check your internet connection and try again." ]