Update part2

2018-08-13 05:28:43 -04:00
parent 8614a564f7
commit 50da3881b1
20 changed files with 939 additions and 547 deletions
--- a/advanced/part2/src/Session.elm
+++ b/advanced/part2/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