diff options
| author | Joris | 2015-09-12 23:57:16 +0200 |
|---|---|---|
| committer | Joris | 2015-09-12 23:57:16 +0200 |
| commit | a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b (patch) | |
| tree | 05a613aef2d338f10bcdd394e520450656ed8f1c /src/server/Model/Message/Key.hs | |
| parent | d87dbd1360c14df83552fd757438c23e5d7b9f9c (diff) | |
| download | budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.gz budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.bz2 budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.zip | |
Adding UI income read-only
Diffstat (limited to 'src/server/Model/Message/Key.hs')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 3d915b9..4076768 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -19,8 +19,7 @@ data Key = | SignInExpired | SignInInvalid | SignInMailTitle - | HiMail - | SignInLinkMail + | SignInMail | SignInEmailSent -- Dates @@ -54,7 +53,13 @@ data Key = | MoneySymbol | Punctual | Monthly + | NoMonthlyPayment | SingularMonthlyCount | PluralMonthlyCount + -- Income + + | Income + | NoIncome + deriving (Enum, Bounded, Show) |