Update part8

2018-05-05 07:17:06 -04:00
parent faa5b834c1
commit fecc3fe291
576 changed files with 14 additions and 44428 deletions
--- a/part7/src/Data/Session.elm
+++ b/part7/src/Data/Session.elm
@@ -1,18 +0,0 @@
-module Data.Session exposing (Session, attempt)
-
-import Data.AuthToken exposing (AuthToken)
-import Data.User exposing (User)
-
-
-type alias Session =
-    { user : Maybe User }
-
-
-attempt : String -> (AuthToken -> Cmd msg) -> Session -> ( List String, Cmd msg )
-attempt attemptedAction toCmd session =
-    case Maybe.map .token session.user of
-        Nothing ->
-            ( [ "You have been signed out. Please sign back in to " ++ attemptedAction ++ "." ], Cmd.none )
-
-        Just token ->
-            ( [], toCmd token )