blob: f8359bbcb28508119cffc65e4986f5258b1a24e2 (
plain)
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
64
|
module View.Income.Income
( init
, view
, In(..)
) where
import Data.Aeson (FromJSON)
import Prelude hiding (init)
import Reflex.Dom (Dynamic, MonadWidget)
import qualified Reflex.Dom as R
import Common.Model (Currency)
import Loadable (Loadable (..))
import qualified Loadable
import qualified Util.Ajax as AjaxUtil
import qualified View.Income.Header as Header
import View.Income.Init (Init (..))
import qualified View.Income.Table as Table
data In t = In
{ _in_currency :: Currency
, _in_init :: Dynamic t (Loadable Init)
}
init :: forall t m. MonadWidget t m => m (Dynamic t (Loadable Init))
init = do
users <- AjaxUtil.getNow "api/users"
incomes <- AjaxUtil.getNow "api/incomes"
payments <- AjaxUtil.getNow "api/payments"
return $ do
us <- users
is <- incomes
ps <- payments
return $ Init <$> us <*> is <*> ps
view :: forall t m. MonadWidget t m => In t -> m ()
view input = do
R.dyn . R.ffor (_in_init input) . Loadable.view $ \init ->
R.elClass "main" "income" $ do
rec
incomes <- R.foldDyn
(:)
(_init_incomes init)
(Header._out_addIncome header)
header <- Header.view $ Header.In
{ Header._in_init = init
, Header._in_currency = _in_currency input
, Header._in_incomes = incomes
}
Table.view $ Table.In
{ Table._in_init = init
, Table._in_currency = _in_currency input
, Table._in_incomes = incomes
}
return ()
return ()
|