From 2a4814681d56fa984aaacacfff0d5334334692b3 Mon Sep 17 00:00:00 2001
From: ohanhi <ossi.hanhinen@gmail.com>
Date: Wed, 9 Jan 2019 10:54:13 +0200
Subject: [PATCH 1/2] Add Finnish language

---
 src/DateFormat/Language.elm | 96 +++++++++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)

diff --git a/src/DateFormat/Language.elm b/src/DateFormat/Language.elm
index a89e6bb..723b126 100644
--- a/src/DateFormat/Language.elm
+++ b/src/DateFormat/Language.elm
@@ -1,6 +1,7 @@
 module DateFormat.Language exposing
     ( Language
     , english, spanish, dutch, swedish, portuguese
+    , finnish
     )
 
 {-|
@@ -494,3 +495,98 @@ toPortugueseWeekdayName weekday =
 
         Sun ->
             "Domingo"
+
+
+
+-- Finnish
+
+
+toFinnishMonthName : Month -> String
+toFinnishMonthName month =
+    case month of
+        Jan ->
+            "tammikuu"
+
+        Feb ->
+            "helmikuu"
+
+        Mar ->
+            "maaliskuu"
+
+        Apr ->
+            "huhtikuu"
+
+        May ->
+            "toukokuu"
+
+        Jun ->
+            "kesäkuu"
+
+        Jul ->
+            "heinäkuu"
+
+        Aug ->
+            "elokuu"
+
+        Sep ->
+            "syyskuu"
+
+        Oct ->
+            "lokakuu"
+
+        Nov ->
+            "marraskuu"
+
+        Dec ->
+            "joulukuu"
+
+
+toFinnishWeekdayName : Weekday -> String
+toFinnishWeekdayName weekday =
+    case weekday of
+        Mon ->
+            "maanantai"
+
+        Tue ->
+            "tiistai"
+
+        Wed ->
+            "keskiviikko"
+
+        Thu ->
+            "torstai"
+
+        Fri ->
+            "perjantai"
+
+        Sat ->
+            "lauantai"
+
+        Sun ->
+            "sunnuntai"
+
+
+{-| Only 24h formats are used in the Finnish language. AM/PM do technically have translations,
+but using them would go against the [guidelines](http://www.kielitoimistonohjepankki.fi/ohje/51).
+-}
+toFinnishAmPm : Int -> String
+toFinnishAmPm _ =
+    ""
+
+
+toFinnishSuffix : Int -> String
+toFinnishSuffix _ =
+    "."
+
+
+{-| The Finnish language!
+-}
+finnish : Language
+finnish =
+    Language
+        toFinnishMonthName
+        (toFinnishMonthName >> String.replace "kuu" "")
+        toFinnishWeekdayName
+        (toFinnishWeekdayName >> String.left 2)
+        toFinnishAmPm
+        toFinnishSuffix

From afae9e8503d0fe725fe89f7400c29ca88e28832d Mon Sep 17 00:00:00 2001
From: ohanhi <ossi.hanhinen@gmail.com>
Date: Wed, 9 Jan 2019 11:01:26 +0200
Subject: [PATCH 2/2] Add finnish to docs

---
 src/DateFormat/Language.elm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/DateFormat/Language.elm b/src/DateFormat/Language.elm
index 723b126..d420580 100644
--- a/src/DateFormat/Language.elm
+++ b/src/DateFormat/Language.elm
@@ -1,7 +1,6 @@
 module DateFormat.Language exposing
     ( Language
-    , english, spanish, dutch, swedish, portuguese
-    , finnish
+    , english, spanish, dutch, swedish, portuguese, finnish
     )
 
 {-|
@@ -23,7 +22,7 @@ This module exposes `Language`, along with a few implementations.
 
 ### Languages
 
-@docs english, spanish, dutch, swedish, portuguese
+@docs english, spanish, dutch, swedish, portuguese, finnish
 
 -}