Converts the login module to Elm 0.19.

1 files changed, 11 insertions, 2 deletions

diff --git a/src/login/src/Struct/Event.elm b/src/login/src/Struct/Event.elm
index 8402cc9..faa4a2f 100644
--- a/src/login/src/Struct/Event.elm
+++ b/src/login/src/Struct/Event.elm
@@ -3,7 +3,10 @@ module Struct.Event exposing (Type(..), attempted)
 -- Elm -------------------------------------------------------------------------
 import Http
 
--- Map -------------------------------------------------------------------
+-- Shared ----------------------------------------------------------------------
+import Util.Http
+
+-- Login -----------------------------------------------------------------------
 import Struct.Error
 import Struct.ServerReply
 import Struct.HelpRequest
@@ -34,4 +37,10 @@ attempted act =
    case act of
       (Result.Ok _) -> None
       (Result.Err msg) ->
-         (Failed (Struct.Error.new Struct.Error.Failure (toString msg)))
+         (Failed
+            (Struct.Error.new
+               Struct.Error.Failure
+               -- TODO: find a way to get some relevant text here.
+               "(text representation not implemented)"
+            )
+         )