    {-# 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?"
    dutchFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Ongeldige kleur, moet de hexadecimale indeling #rrggbb hebben: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    dutchFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Ongeldige datum/tijd, moet de indeling JJJJ-MM-DD(T| )UU:MM[:SS] hebben: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t