Elm: Add Redirect response + fix redirect to last post on reply

Fixes https://vndb.org/t2520/14#334 - I originally had some trouble to
do this because `load` doesn't actually reload the page if you're just
changing the hash. The `reload` following it handles that now.

The Redirect response is just cleanup, there's several places that could
benefit form it.

1 files changed, 1 insertions, 1 deletions

diff --git a/elm/DocEdit.elm b/elm/DocEdit.elm
index 3fad1f8f..e4282213 100644
--- a/elm/DocEdit.elm
+++ b/elm/DocEdit.elm
@@ -73,7 +73,7 @@ update msg model =
       let body = GD.encode (encode model)
       in ({ model | state = Api.Loading }, Api.post "/d/edit.json" body Submitted)
 
-    Submitted (GApi.Changed id rev) -> (model, load <| "/d" ++ String.fromInt id ++ "." ++ String.fromInt rev)
+    Submitted (GApi.Redirect s) -> (model, load s)
     Submitted r -> ({ model | state = Api.Error r }, Cmd.none)