From 9dfa7a7e2c6fac564a456b11623c04d0b26fbce5 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 4 Jun 2016 10:04:05 +0200 Subject: Add search on payments and use inline font awesome from elm --- src/server/Model/Message/Key.hs | 1 + src/server/Model/Message/Translations.hs | 5 +++++ 2 files changed, 6 insertions(+) (limited to 'src/server/Model/Message') diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index dea1a03..7c48e71 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -64,6 +64,7 @@ data Key = | PaymentsTitle | Payment | Payments + | Search -- Statistics diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 7bde74f..f593c49 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -245,6 +245,11 @@ m l Payment = English -> "payment" French -> "paiement" +m l Search = + case l of + English -> "Search" + French -> "Recherche" + m l Payments = case l of English -> "payments" -- cgit v1.2.3