Adds "GoTo" server reply.

1 files changed, 27 insertions, 0 deletions

diff --git a/src/shared/elm/Comm/GoTo.elm b/src/shared/elm/Comm/GoTo.elm
new file mode 100644
index 0000000..ea8d7af
--- /dev/null
+++ b/src/shared/elm/Comm/GoTo.elm
@@ -0,0 +1,27 @@
+module Comm.GoTo exposing (decode)
+
+-- Elm -------------------------------------------------------------------------
+import Json.Decode
+
+-- ??? -------------------------------------------------------------------------
+import Struct.ServerReply
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+internal_decoder : String -> Struct.ServerReply.Type
+internal_decoder url = (Struct.ServerReply.GoTo url)
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+decode : (Json.Decode.Decoder Struct.ServerReply.Type)
+decode =
+   (Json.Decode.map
+      (internal_decoder)
+      (Json.Decode.field "url" (Json.Decode.string))
+   )