aboutsummaryrefslogtreecommitdiff
path: root/client/src/View/Income/Header.hs
diff options
context:
space:
mode:
authorJoris2019-10-22 23:25:05 +0200
committerJoris2019-10-22 23:25:05 +0200
commit61ff1443c42def5a09f624e3df2e2520e97610d0 (patch)
treea177b297b2c0728c8edaaf200f05c53e76f121f3 /client/src/View/Income/Header.hs
parent613ffccac4b3ab25c6d4c631fab757da0b35acf6 (diff)
downloadbudget-61ff1443c42def5a09f624e3df2e2520e97610d0.tar.gz
budget-61ff1443c42def5a09f624e3df2e2520e97610d0.tar.bz2
budget-61ff1443c42def5a09f624e3df2e2520e97610d0.zip
Clone incomes
Diffstat (limited to 'client/src/View/Income/Header.hs')
-rw-r--r--client/src/View/Income/Header.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/client/src/View/Income/Header.hs b/client/src/View/Income/Header.hs
index ae1174a..0360d1f 100644
--- a/client/src/View/Income/Header.hs
+++ b/client/src/View/Income/Header.hs
@@ -72,7 +72,7 @@ view input =
addIncome <- Modal.view $ Modal.In
{ Modal._in_show = addIncome
- , Modal._in_content = Add.view
+ , Modal._in_content = Add.view $ Add.In { Add._in_income = R.constDyn Nothing }
}
return $ Out