From bb316286b0859b5648c61f44c88399f4c1aad9cd Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 2 Jan 2016 19:07:19 +0100 Subject: Use start-app for elm --- src/client/elm/InitViewAction.elm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/client/elm/InitViewAction.elm') diff --git a/src/client/elm/InitViewAction.elm b/src/client/elm/InitViewAction.elm index cdfc0fc..52ae08d 100644 --- a/src/client/elm/InitViewAction.elm +++ b/src/client/elm/InitViewAction.elm @@ -6,13 +6,13 @@ import Task exposing (..) import Http import Json.Decode as Json exposing ((:=)) -import Update exposing (Action(GoLoggedInView, GoSignInView)) +import Effects exposing (Never) +import Model.Action exposing (..) import Model.Payment exposing (Payments, paymentsDecoder) import Model.Payer exposing (Payers, payersDecoder) import Model.User exposing (Users, usersDecoder, UserId, userIdDecoder) -initViewAction : Task Http.Error Action initViewAction = Task.onError loggedInView (always <| Task.succeed GoSignInView) loggedInView : Task Http.Error Action -- cgit v1.2.3