From 6ca60e32f0cbde913d171cd84ed7009ab4281284 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 13 Sep 2015 14:38:08 +0200 Subject: Adding UI to modify the income --- src/server/Model/Message/Key.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/server/Model/Message/Key.hs') diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 9f16f6b..bd2b567 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -45,6 +45,8 @@ data Key = | CategoryRequired | CostRequired | CostMustBeNonNullNumber + | IncomeRequired + | IncomeMustBeNonNullNumber -- Payments @@ -60,5 +62,9 @@ data Key = | Income | NoIncome + | Edit + | Validate + | Undo + | NewIncome deriving (Enum, Bounded, Show) -- cgit v1.2.3