Update part3

2018-08-13 05:49:56 -04:00
parent 50da3881b1
commit bd72768e6f
21 changed files with 954 additions and 593 deletions
--- a/advanced/part3/src/Session.elm
+++ b/advanced/part3/src/Session.elm
@@ -45,7 +45,12 @@ viewer session =

 cred : Session -> Maybe Cred
 cred session =
-    Maybe.map Viewer.cred (viewer session)
+    case session of
+        LoggedIn _ val ->
+            Just (Viewer.cred val)
+
+        Guest _ ->
+            Nothing


 navKey : Session -> Nav.Key