{-# 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
"잘못된 정수입니다: " forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
koreanFormMessage (MsgInvalidNumber Text
t) = Text
"잘못된 숫자입니다: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
koreanFormMessage (MsgInvalidEntry Text
t) = 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입니다: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
koreanFormMessage (MsgInvalidEmail Text
t) = Text
"잘못된 이메일 주소입니다: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
koreanFormMessage (MsgInvalidHour Text
t) = Text
"잘못된 시간입니다: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
koreanFormMessage (MsgInvalidMinute Text
t) = Text
"잘못된 분입니다: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
koreanFormMessage (MsgInvalidSecond Text
t) = 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
"입력을 찾을 수 없습니다: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
koreanFormMessage FormMessage
MsgSelectNone = Text
"<없음>"
koreanFormMessage (MsgInvalidBool Text
t) = Text
"잘못된 불(boolean)입니다: " 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진수 형식이어야 합니다.: " forall a. Monoid a => a -> a -> a
`mappend` Text
t