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

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

    koreanFormMessage :: FormMessage -> Text
    koreanFormMessage :: FormMessage -> Text
    koreanFormMessage (MsgInvalidInteger Text
    t) = Text
    "잘못된 정수입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    koreanFormMessage (MsgInvalidNumber Text
    t) = Text
    "잘못된 숫자입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage (MsgInvalidEntry Text
    t) = Text
    "잘못된 입력입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage FormMessage
    MsgInvalidTimeFormat = Text
    "잘못된 시간입니다. HH:MM[:SS] 형태로 입력하세요"
    koreanFormMessage FormMessage
    MsgInvalidDay = Text
    "잘못된 날짜입니다. YYYY-MM-DD 형태로 입력하세요"
    koreanFormMessage (MsgInvalidUrl Text
    t) = Text
    "잘못된 URL입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage (MsgInvalidEmail Text
    t) = Text
    "잘못된 이메일 주소입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage (MsgInvalidHour Text
    t) = Text
    "잘못된 시간입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage (MsgInvalidMinute Text
    t) = Text
    "잘못된 분입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage (MsgInvalidSecond Text
    t) = Text
    "잘못된 초입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage FormMessage
    MsgCsrfWarning = Text
    "CSRF공격을 방지하기 위해 양식의 입력을 확인하세요."
    koreanFormMessage FormMessage
    MsgValueRequired = Text
    "값은 필수입니다"
    koreanFormMessage (MsgInputNotFound Text
    t) = Text
    "입력을 찾을 수 없습니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage FormMessage
    MsgSelectNone = Text
    "<없음>"
    koreanFormMessage (MsgInvalidBool Text
    t) = Text
    "잘못된 불(boolean)입니다: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage FormMessage
    MsgBoolYes = Text
    "예"
    koreanFormMessage FormMessage
    MsgBoolNo = Text
    "아니오"
    koreanFormMessage FormMessage
    MsgDelete = Text
    "삭제하시겠습니까?"
    koreanFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "색상이 잘못되었습니다. #rrggbb 16진수 형식이어야 합니다.: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    koreanFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "날짜/시간이 잘못되었습니다. YYYY-MM-DD(T| )HH:MM[:SS] 형식이어야 합니다.: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t