Clone incomes

1 files changed, 10 insertions, 7 deletions

diff --git a/client/src/View/Income/Income.hs b/client/src/View/Income/Income.hs
index f8359bb..b97613d 100644
--- a/client/src/View/Income/Income.hs
+++ b/client/src/View/Income/Income.hs
@@ -41,11 +41,14 @@ view input = do
     R.elClass "main" "income" $ do
 
       rec
-
+        let addIncome = R.leftmost
+              [ Header._out_addIncome header
+              , Table._out_addIncome table
+              ]
         incomes <- R.foldDyn
           (:)
           (_init_incomes init)
-          (Header._out_addIncome header)
+          addIncome
 
         header <- Header.view $ Header.In
           { Header._in_init = init
@@ -53,11 +56,11 @@ view input = do
           , Header._in_incomes = incomes
           }
 
-      Table.view $ Table.In
-        { Table._in_init = init
-        , Table._in_currency = _in_currency input
-        , Table._in_incomes = incomes
-        }
+        table <- Table.view $ Table.In
+          { Table._in_init = init
+          , Table._in_currency = _in_currency input
+          , Table._in_incomes = incomes
+          }
 
       return ()