From 633a1efbd9e248fc803bdd8b4942ebbf7a309eac Mon Sep 17 00:00:00 2001
From: Richard Feldman <richard.t.feldman@gmail.com>
Date: Tue, 14 Aug 2018 02:08:44 -0400
Subject: [PATCH] Solution for intro/part5

---
 intro/part5/src/Page/Register.elm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/intro/part5/src/Page/Register.elm b/intro/part5/src/Page/Register.elm
index 39e7078..c42939c 100644
--- a/intro/part5/src/Page/Register.elm
+++ b/intro/part5/src/Page/Register.elm
@@ -86,11 +86,7 @@ viewForm form =
             [ input
                 [ class "form-control form-control-lg"
                 , placeholder "Username"
-
-                {- 👉 TODO: when the user inputs a username, update it in the Model.
-
-                   💡 HINT: Look at how the Email input below does this. 👇
-                -}
+                , onInput EnteredUsername
                 , value form.username
                 ]
                 []
@@ -141,6 +137,7 @@ type Msg
     = SubmittedForm
     | EnteredEmail String
     | EnteredPassword String
+    | EnteredUsername String
     | CompletedRegister (Result Http.Error Viewer)
     | GotSession Session
 
@@ -154,6 +151,9 @@ update msg model =
         EnteredPassword password ->
             updateForm (\form -> { form | password = password }) model
 
+        EnteredUsername username ->
+            updateForm (\form -> { form | username = username }) model
+
         SubmittedForm ->
             case validate model.form of
                 Ok validForm ->