fix handling of upload progress.

lifemapper · Apr 12, 2019 · a7398cb · a7398cb
1 parent aa89416
commit a7398cb
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/source/UploadFile.elm b/source/UploadFile.elm
@@ -193,12 +193,15 @@ update uploadType index flags msg state =
                                 , Cmd.none
                                 )
 
-                            UploadComplete 200 _ ->
+                            UploadComplete 202 _ ->
                                 ( Finished uploadAs, Cmd.none )
 
-                            _ ->
+                            UploadComplete _ _ ->
                                 ( UploadingFailed { info | status = status }, Cmd.none )
 
+                            _ ->
+                                ( UploadingFile { info | status = status }, Cmd.none )
+
                     _ ->
                         ( state, Cmd.none )
             else
@@ -323,7 +326,7 @@ view mapMdlMsg mapMsg index text mdl state =
                     [ Html.text <| "Failed uploading " ++ uploadAs ++ "." ]
 
         UploadingFailed { localFileName, uploadAs, status } ->
-            [ Html.p [] [ Html.text <| "Uploading of " ++ uploadAs ++ "finished but resulted in failure." ]
+            [ Html.p [] [ Html.text <| "Uploading of " ++ uploadAs ++ " finished but resulted in failure." ]
             , Button.render mapMdlMsg
                 (2 :: index)
                 mdl