diff options
| author | Joris | 2019-11-06 19:44:15 +0100 |
|---|---|---|
| committer | Joris | 2019-11-06 19:44:15 +0100 |
| commit | f4f24158a46d8c0975f1b8813bbdbbeebad8c108 (patch) | |
| tree | d0aeaa3a920caaff7408a1f6cd12b45f21cb2620 /client/src/View/Income/Table.hs | |
| parent | 58f6c4e25f5f20f1b608242c83786e2f13947804 (diff) | |
Show the payment table with server side paging
Diffstat (limited to 'client/src/View/Income/Table.hs')
| -rw-r--r-- | client/src/View/Income/Table.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/client/src/View/Income/Table.hs b/client/src/View/Income/Table.hs index 32ab27b..c623acb 100644 --- a/client/src/View/Income/Table.hs +++ b/client/src/View/Income/Table.hs @@ -80,14 +80,14 @@ headerLabel UserHeader = Msg.get Msg.Income_Name headerLabel DateHeader = Msg.get Msg.Income_Date headerLabel AmountHeader = Msg.get Msg.Income_Amount -cell :: [User] -> Currency -> Header -> Income -> Text +cell :: forall t m. MonadWidget t m => [User] -> Currency -> Header -> Income -> m () cell users currency header income = case header of UserHeader -> - Maybe.fromMaybe "" . fmap _user_name $ CM.findUser (_income_userId income) users + R.text . Maybe.fromMaybe "" . fmap _user_name $ CM.findUser (_income_userId income) users DateHeader -> - Format.longDay . _income_date $ income + R.text . Format.longDay . _income_date $ income AmountHeader -> - Format.price currency . _income_amount $ income + R.text . Format.price currency . _income_amount $ income |