module Main ( main ) where import Graphics.Element exposing (..) import Html exposing (Html) import Http import Task exposing (..) import Time exposing (..) import Json.Decode as Json import Model exposing (Model, initialModel) import Model.Payment exposing (Payments, paymentsDecoder) import Model.Payers exposing (Payers, payersDecoder) import Model.Message exposing (messageDecoder) import Model.Translations exposing (..) import Update exposing (Action(..), actions, updateModel) import Update.SignIn exposing (..) import View.Page exposing (renderPage) import ServerCommunication exposing (serverCommunications, sendRequest) main : Signal Html main = Signal.map renderPage model model : Signal Model model = Signal.foldp updateModel (initialModel initialTime translations) update update : Signal Action update = Signal.mergeMany [ Signal.map UpdateTime (Time.every 30) , actions.signal ] --------------------------------------- port signInError : Maybe String --------------------------------------- port initialTime : Time --------------------------------------- port translations : String --------------------------------------- port initView : Task Http.Error () port initView = case signInError of Just msg -> Signal.send actions.address (SignInError msg) Nothing -> Task.map3 GoPaymentView getUserName getPayments getPayers |> flip Task.andThen (Signal.send actions.address) |> flip Task.onError (\_ -> Signal.send actions.address GoSignInView) getUserName : Task Http.Error String getUserName = Http.get messageDecoder "/userName" getPayments : Task Http.Error Payments getPayments = Http.get paymentsDecoder "/payments" getPayers : Task Http.Error Payers getPayers = Http.get payersDecoder "/payments/total" --------------------------------------- port serverCommunicationsPort : Signal (Task Http.RawError ()) port serverCommunicationsPort = Signal.map (\comm -> sendRequest comm `Task.andThen` (Signal.send actions.address)) serverCommunications.signal