{-# LANGUAGE OverloadedStrings #-}
module Yesod.Form.I18n.Dutch where

import Yesod.Form.Types (FormMessage (..))
import Data.Monoid (mappend)
import Data.Text (Text)

dutchFormMessage :: FormMessage -> Text
dutchFormMessage :: FormMessage -> Text
dutchFormMessage (MsgInvalidInteger Text
t) = Text
"Ongeldig aantal: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
dutchFormMessage (MsgInvalidNumber Text
t)  = Text
"Ongeldig getal: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage (MsgInvalidEntry Text
t)   = Text
"Ongeldige invoer: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage FormMessage
MsgInvalidTimeFormat  = Text
"Ongeldige tijd, het juiste formaat is (UU:MM[:SS])"
dutchFormMessage FormMessage
MsgInvalidDay         = Text
"Ongeldige datum, het juiste formaat is (JJJJ-MM-DD)"
dutchFormMessage (MsgInvalidUrl Text
t)     = Text
"Ongeldige URL: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage (MsgInvalidEmail Text
t)   = Text
"Ongeldig e-mail adres: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage (MsgInvalidHour Text
t)    = Text
"Ongeldig uur: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage (MsgInvalidMinute Text
t)  = Text
"Ongeldige minuut: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage (MsgInvalidSecond Text
t)  = Text
"Ongeldige seconde: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage FormMessage
MsgCsrfWarning        = Text
"Bevestig het indienen van het formulier, dit als veiligheidsmaatregel tegen \"cross-site request forgery\" aanvallen."
dutchFormMessage FormMessage
MsgValueRequired      = Text
"Verplicht veld"
dutchFormMessage (MsgInputNotFound Text
t)  = Text
"Geen invoer gevonden: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage FormMessage
MsgSelectNone         = Text
"<Geen>"
dutchFormMessage (MsgInvalidBool Text
t)    = Text
"Ongeldige waarheidswaarde: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
dutchFormMessage FormMessage
MsgBoolYes            = Text
"Ja"
dutchFormMessage FormMessage
MsgBoolNo             = Text
"Nee"
dutchFormMessage FormMessage
MsgDelete             = Text
"Verwijderen?"