From a6e11245cfa6d22cc6fd4035ade4b84b33b402ba Mon Sep 17 00:00:00 2001
From: vlatkoB <vlatko.basic@gmail.com>
Date: Wed, 20 Jan 2016 09:47:28 +0100
Subject: [PATCH] Fix var name to croatianFormMessage

---
 yesod-form/Yesod/Form/I18n/Croatian.hs | 38 +++++++++++++-------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/yesod-form/Yesod/Form/I18n/Croatian.hs b/yesod-form/Yesod/Form/I18n/Croatian.hs
index 194a40e6..1f6eca6f 100644
--- a/yesod-form/Yesod/Form/I18n/Croatian.hs
+++ b/yesod-form/Yesod/Form/I18n/Croatian.hs
@@ -5,22 +5,22 @@ import Yesod.Form.Types (FormMessage (..))
 import Data.Monoid (mappend)
 import Data.Text (Text)
 
-englishFormMessage :: FormMessage -> Text
-englishFormMessage (MsgInvalidInteger t) = "Cjelobrojna vrijednost nije valjana: " `mappend` t
-englishFormMessage (MsgInvalidNumber t)  = "Broj nije valjan: " `mappend` t
-englishFormMessage (MsgInvalidEntry t)   = "Unos nije valjan: " `mappend` t
-englishFormMessage MsgInvalidTimeFormat  = "Vrijeme nije valjano, mora biti u obliku HH:MM[:SS]"
-englishFormMessage MsgInvalidDay         = "Dan nije valjan, mora biti u obliku GGGG-MM-DD"
-englishFormMessage (MsgInvalidUrl t)     = "URL adresa nije valjana: " `mappend` t
-englishFormMessage (MsgInvalidEmail t)   = "Adresa e-pošte nije valjana: " `mappend` t
-englishFormMessage (MsgInvalidHour t)    = "Sat nije valjan: " `mappend` t
-englishFormMessage (MsgInvalidMinute t)  = "Minuta nije valjana: " `mappend` t
-englishFormMessage (MsgInvalidSecond t)  = "Sekunda nije valjana: " `mappend` t
-englishFormMessage MsgCsrfWarning        = "Potvrdite slanje obrasca radi zaštite od XSRF napada,"
-englishFormMessage MsgValueRequired      = "Potrebno je unijeti vrijednost"
-englishFormMessage (MsgInputNotFound t)  = "Unos nije pronađen: " `mappend` t
-englishFormMessage MsgSelectNone         = "<nema>"
-englishFormMessage (MsgInvalidBool t)    = "Logička vrijednost nije valjana: " `mappend` t
-englishFormMessage MsgBoolYes            = "Da"
-englishFormMessage MsgBoolNo             = "Ne"
-englishFormMessage MsgDelete             = "Izbrisati?"
+croatianFormMessage :: FormMessage -> Text
+croatianFormMessage (MsgInvalidInteger t) = "Cjelobrojna vrijednost nije valjana: " `mappend` t
+croatianFormMessage (MsgInvalidNumber t)  = "Broj nije valjan: " `mappend` t
+croatianFormMessage (MsgInvalidEntry t)   = "Unos nije valjan: " `mappend` t
+croatianFormMessage MsgInvalidTimeFormat  = "Vrijeme nije valjano, mora biti u obliku HH:MM[:SS]"
+croatianFormMessage MsgInvalidDay         = "Dan nije valjan, mora biti u obliku GGGG-MM-DD"
+croatianFormMessage (MsgInvalidUrl t)     = "URL adresa nije valjana: " `mappend` t
+croatianFormMessage (MsgInvalidEmail t)   = "Adresa e-pošte nije valjana: " `mappend` t
+croatianFormMessage (MsgInvalidHour t)    = "Sat nije valjan: " `mappend` t
+croatianFormMessage (MsgInvalidMinute t)  = "Minuta nije valjana: " `mappend` t
+croatianFormMessage (MsgInvalidSecond t)  = "Sekunda nije valjana: " `mappend` t
+croatianFormMessage MsgCsrfWarning        = "Potvrdite slanje obrasca radi zaštite od XSRF napada,"
+croatianFormMessage MsgValueRequired      = "Potrebno je unijeti vrijednost"
+croatianFormMessage (MsgInputNotFound t)  = "Unos nije pronađen: " `mappend` t
+croatianFormMessage MsgSelectNone         = "<nema>"
+croatianFormMessage (MsgInvalidBool t)    = "Logička vrijednost nije valjana: " `mappend` t
+croatianFormMessage MsgBoolYes            = "Da"
+croatianFormMessage MsgBoolNo             = "Ne"
+croatianFormMessage MsgDelete             = "Izbrisati?"