yesod-form 1.4.15 → 1.4.16
raw patch · 3 files changed
+32/−1 lines, 3 files
Files
- ChangeLog.md +4/−0
- Yesod/Form/I18n/Korean.hs +26/−0
- yesod-form.cabal +2/−1
ChangeLog.md view
@@ -1,3 +1,7 @@+## 1.4.16++* Korean translation+ ## 1.4.15 * Added `Alternative` instance to `FormResult` to simplify handling pages with multiple forms.
+ Yesod/Form/I18n/Korean.hs view
@@ -0,0 +1,26 @@+{-# 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 (MsgInvalidInteger t) = "잘못된 정수입니다: " `Data.Monoid.mappend` t+koreanFormMessage (MsgInvalidNumber t) = "잘못된 숫자입니다: " `mappend` t+koreanFormMessage (MsgInvalidEntry t) = "잘못된 입력입니다: " `mappend` t+koreanFormMessage MsgInvalidTimeFormat = "잘못된 시간입니다. HH:MM[:SS] 형태로 입력하세요"+koreanFormMessage MsgInvalidDay = "잘못된 날짜입니다. YYYY-MM-DD 형태로 입력하세요"+koreanFormMessage (MsgInvalidUrl t) = "잘못된 URL입니다: " `mappend` t+koreanFormMessage (MsgInvalidEmail t) = "잘못된 이메일 주소입니다: " `mappend` t+koreanFormMessage (MsgInvalidHour t) = "잘못된 시간입니다: " `mappend` t+koreanFormMessage (MsgInvalidMinute t) = "잘못된 분입니다: " `mappend` t+koreanFormMessage (MsgInvalidSecond t) = "잘못된 초입니다: " `mappend` t+koreanFormMessage MsgCsrfWarning = "CSRF공격을 방지하기 위해 양식의 입력을 확인하세요."+koreanFormMessage MsgValueRequired = "값은 필수입니다"+koreanFormMessage (MsgInputNotFound t) = "입력을 찾을 수 없습니다: " `mappend` t+koreanFormMessage MsgSelectNone = "<없음>"+koreanFormMessage (MsgInvalidBool t) = "잘못된 불(boolean)입니다: " `mappend` t+koreanFormMessage MsgBoolYes = "예"+koreanFormMessage MsgBoolNo = "아니오"+koreanFormMessage MsgDelete = "삭제하시겠습니까?"
yesod-form.cabal view
@@ -1,5 +1,5 @@ name: yesod-form-version: 1.4.15+version: 1.4.16 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -69,6 +69,7 @@ Yesod.Form.I18n.Dutch Yesod.Form.I18n.Spanish Yesod.Form.I18n.Chinese+ Yesod.Form.I18n.Korean -- FIXME Yesod.Helpers.Crud ghc-options: -Wall