Update part4

2018-08-13 06:07:16 -04:00
parent bd72768e6f
commit fd3ceff2d2
19 changed files with 885 additions and 536 deletions
--- a/advanced/part4/src/Session.elm
+++ b/advanced/part4/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