-
Notifications
You must be signed in to change notification settings - Fork 368
/
Croatian.hs
28 lines (26 loc) · 1.85 KB
/
Croatian.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{-# LANGUAGE OverloadedStrings #-}
module Yesod.Form.I18n.Croatian where
import Yesod.Form.Types (FormMessage (..))
import Data.Monoid (mappend)
import Data.Text (Text)
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?"
croatianFormMessage (MsgInvalidHexColorFormat t) = "Nevažeća boja, mora biti u #rrggbb heksadecimalnom formatu: " `mappend` t
croatianFormMessage (MsgInvalidDatetimeFormat t) = "Nevažeći datum i vrijeme, mora biti u formatu GGGG-MM-DD(T| )HH:MM[:SS]: " `mappend` t