src/client/Main.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

module Main
  ( main
  ) where

{-| @docs main -}

import Graphics.Element exposing (..)

import Html exposing (Html)

import Http
import Task exposing (..)

import Model exposing (Model, initialModel)
import Model.Payment exposing (Payments, paymentsDecoder)

import Update exposing (Action(..), actions, updateModel)
import Update.SignIn exposing (..)

import View.Page exposing (renderPage)

import ServerCommunication exposing (serverCommunications, sendRequest)

{-| main -}

main : Signal Html
main = Signal.map renderPage model

model : Signal Model
model = Signal.foldp updateModel initialModel actions.signal

-------------------------

port signInError : Maybe String

---------------------------------------

port fetchPayments : Task Http.Error ()
port fetchPayments =
  case signInError of
    Just msg ->
      Signal.send actions.address (SignInError msg)
    Nothing ->
      getPayments
        |> flip Task.andThen reportSuccess
        |> flip Task.onError reportError

reportSuccess : Payments -> Task x ()
reportSuccess payments = Signal.send actions.address (UpdatePayments payments)

reportError : Http.Error -> Task x ()
reportError error = Signal.send actions.address SignIn

getPayments : Task Http.Error Payments
getPayments = Http.get paymentsDecoder "/payments"

---------------------------------------------------

port serverCommunicationsPort : Signal (Task Http.RawError ())
port serverCommunicationsPort =
  Signal.map
    (\comm -> sendRequest comm `Task.andThen` (Signal.send actions.address))
    serverCommunications.signal