Update part1

2018-08-13 05:11:14 -04:00
parent 493b5681d4
commit 1688e5ec38
19 changed files with 854 additions and 530 deletions
--- a/advanced/part1/src/Session.elm
+++ b/advanced/part1/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