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