diff options
Diffstat (limited to 'src/client/elm/LoggedIn/View')
-rw-r--r-- | src/client/elm/LoggedIn/View/Date.elm | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/src/client/elm/LoggedIn/View/Date.elm b/src/client/elm/LoggedIn/View/Date.elm deleted file mode 100644 index 8e4e872..0000000 --- a/src/client/elm/LoggedIn/View/Date.elm +++ /dev/null @@ -1,48 +0,0 @@ -module LoggedIn.View.Date exposing - ( renderShortDate - , renderLongDate - , renderMonth - ) - -import Date exposing (..) -import Date.Extra.Core as Date -import String - -import Model.Translations exposing (..) - -renderShortDate : Date -> Translations -> String -renderShortDate date translations = - let params = - [ String.pad 2 '0' (toString (Date.day date)) - , String.pad 2 '0' (toString (Date.monthToInt (Date.month date))) - , toString (Date.year date) - ] - in getParamMessage params "ShortDate" translations - -renderLongDate : Date -> Translations -> String -renderLongDate date translations = - let params = - [ toString (Date.day date) - , (getMessage (getMonthKey (Date.month date)) translations) - , toString (Date.year date) - ] - in getParamMessage params "LongDate" translations - -renderMonth : Translations -> Month -> String -renderMonth translations month = getMessage (getMonthKey month) translations - -getMonthKey : Month -> String -getMonthKey month = - case month of - Jan -> "January" - Feb -> "February" - Mar -> "March" - Apr -> "April" - May -> "May" - Jun -> "June" - Jul -> "July" - Aug -> "August" - Sep -> "September" - Oct -> "October" - Nov -> "November" - Dec -> "December" |