From 5c110716cfda6e616a795edd12f2012b132dca9f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 2 Apr 2017 17:51:12 +0200
Subject: Add a chart on payments by month by categories

---
 src/client/View/Date.elm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'src/client/View/Date.elm')

diff --git a/src/client/View/Date.elm b/src/client/View/Date.elm
index 35806ba..6df971b 100644
--- a/src/client/View/Date.elm
+++ b/src/client/View/Date.elm
@@ -1,5 +1,6 @@
 module View.Date exposing
-  ( shortView
+  ( shortMonthAndYear
+  , shortView
   , longView
   , monthView
   )
@@ -10,6 +11,14 @@ import String
 
 import Model.Translations exposing (..)
 
+shortMonthAndYear : Month -> Int -> Translations -> String
+shortMonthAndYear month year translations =
+  let params =
+        [ String.pad 2 '0' (toString (Date.monthToInt month))
+        , toString year
+        ]
+  in  getParamMessage params translations "ShortMonthAndYear"
+
 shortView : Date -> Translations -> String
 shortView date translations =
   let params =
-- 
cgit v1.2.3