Hello community, here is the log from the commit of package ghc-yesod-form for openSUSE:Factory checked in at 2017-06-04 01:59:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-yesod-form (Old) and /work/SRC/openSUSE:Factory/.ghc-yesod-form.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-yesod-form" Sun Jun 4 01:59:35 2017 rev:7 rq:499744 version:1.4.12 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-yesod-form/ghc-yesod-form.changes 2017-04-11 09:44:07.881826537 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-yesod-form.new/ghc-yesod-form.changes 2017-06-04 01:59:37.105985606 +0200 @@ -1,0 +2,5 @@ +Thu May 18 09:52:20 UTC 2017 - [email protected] + +- Update to version 1.4.12 with cabal2obs. + +------------------------------------------------------------------- Old: ---- yesod-form-1.4.11.tar.gz New: ---- yesod-form-1.4.12.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-yesod-form.spec ++++++ --- /var/tmp/diff_new_pack.Kz1GlL/_old 2017-06-04 01:59:37.625912155 +0200 +++ /var/tmp/diff_new_pack.Kz1GlL/_new 2017-06-04 01:59:37.629911590 +0200 @@ -19,7 +19,7 @@ %global pkg_name yesod-form %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.4.11 +Version: 1.4.12 Release: 0 Summary: Form handling support for Yesod Web Framework License: MIT ++++++ yesod-form-1.4.11.tar.gz -> yesod-form-1.4.12.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yesod-form-1.4.11/ChangeLog.md new/yesod-form-1.4.12/ChangeLog.md --- old/yesod-form-1.4.11/ChangeLog.md 2017-02-28 09:37:07.000000000 +0100 +++ new/yesod-form-1.4.12/ChangeLog.md 2017-05-13 23:23:44.000000000 +0200 @@ -1,3 +1,7 @@ +## 1.4.12 + +* Password field does not remember its previous value + ## 1.4.11 * Fix warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yesod-form-1.4.11/Yesod/Form/Fields.hs new/yesod-form-1.4.12/Yesod/Form/Fields.hs --- old/yesod-form-1.4.11/Yesod/Form/Fields.hs 2017-02-05 13:38:01.000000000 +0100 +++ new/yesod-form-1.4.12/Yesod/Form/Fields.hs 2017-04-12 09:57:39.000000000 +0200 @@ -267,9 +267,9 @@ passwordField :: Monad m => RenderMessage (HandlerSite m) FormMessage => Field m Text passwordField = Field { fieldParse = parseHelper $ Right - , fieldView = \theId name attrs val isReq -> toWidget [hamlet| + , fieldView = \theId name attrs _ isReq -> toWidget [hamlet| $newline never -<input id="#{theId}" name="#{name}" *{attrs} type="password" :isReq:required="" value="#{either id id val}"> +<input id="#{theId}" name="#{name}" *{attrs} type="password" :isReq:required=""> |] , fieldEnctype = UrlEncoded } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yesod-form-1.4.11/Yesod/Form/I18n/Chinese.hs new/yesod-form-1.4.12/Yesod/Form/I18n/Chinese.hs --- old/yesod-form-1.4.11/Yesod/Form/I18n/Chinese.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/yesod-form-1.4.12/Yesod/Form/I18n/Chinese.hs 2017-04-12 09:57:39.000000000 +0200 @@ -0,0 +1,26 @@ +{-# LANGUAGE OverloadedStrings #-} +module Yesod.Form.I18n.Chinese where + +import Yesod.Form.Types (FormMessage (..)) +import Data.Monoid (mappend) +import Data.Text (Text) + +chineseFormMessage :: FormMessage -> Text +chineseFormMessage (MsgInvalidInteger t) = "无效的整数: " `Data.Monoid.mappend` t +chineseFormMessage (MsgInvalidNumber t) = "无效的数字: " `mappend` t +chineseFormMessage (MsgInvalidEntry t) = "无效的条目: " `mappend` t +chineseFormMessage MsgInvalidTimeFormat = "无效的时间, 必须符合HH:MM[:SS]格式" +chineseFormMessage MsgInvalidDay = "无效的日期, 必须符合YYYY-MM-DD格式" +chineseFormMessage (MsgInvalidUrl t) = "无效的链接: " `mappend` t +chineseFormMessage (MsgInvalidEmail t) = "无效的邮箱地址: " `mappend` t +chineseFormMessage (MsgInvalidHour t) = "无效的小时: " `mappend` t +chineseFormMessage (MsgInvalidMinute t) = "无效的分钟: " `mappend` t +chineseFormMessage (MsgInvalidSecond t) = "无效的秒: " `mappend` t +chineseFormMessage MsgCsrfWarning = "为了防备跨站请求伪造, 请确认表格提交." +chineseFormMessage MsgValueRequired = "此项必填" +chineseFormMessage (MsgInputNotFound t) = "输入找不到: " `mappend` t +chineseFormMessage MsgSelectNone = "<空>" +chineseFormMessage (MsgInvalidBool t) = "无效的逻辑值: " `mappend` t +chineseFormMessage MsgBoolYes = "是" +chineseFormMessage MsgBoolNo = "否" +chineseFormMessage MsgDelete = "删除?" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yesod-form-1.4.11/Yesod/Form/Input.hs new/yesod-form-1.4.12/Yesod/Form/Input.hs --- old/yesod-form-1.4.11/Yesod/Form/Input.hs 2017-02-05 13:38:01.000000000 +0100 +++ new/yesod-form-1.4.12/Yesod/Form/Input.hs 2017-05-12 07:26:42.000000000 +0200 @@ -25,7 +25,7 @@ type DText = [Text] -> [Text] -- | Type for a form which parses a value of type @a@ with the base monad @m@ --- (usually your @Handler@). Can can compose this using its @Applicative@ instance. +-- (usually your @Handler@). Can compose this using its @Applicative@ instance. newtype FormInput m a = FormInput { unFormInput :: HandlerSite m -> [Text] -> Env -> FileEnv -> m (Either DText a) } instance Monad m => Functor (FormInput m) where fmap a (FormInput f) = FormInput $ \c d e e' -> liftM (either Left (Right . a)) $ f c d e e' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yesod-form-1.4.11/yesod-form.cabal new/yesod-form-1.4.12/yesod-form.cabal --- old/yesod-form-1.4.11/yesod-form.cabal 2017-02-08 10:18:14.000000000 +0100 +++ new/yesod-form-1.4.12/yesod-form.cabal 2017-05-13 23:23:29.000000000 +0200 @@ -1,5 +1,5 @@ name: yesod-form -version: 1.4.11 +version: 1.4.12 license: MIT license-file: LICENSE author: Michael Snoyman <[email protected]> @@ -68,6 +68,7 @@ Yesod.Form.I18n.Russian Yesod.Form.I18n.Dutch Yesod.Form.I18n.Spanish + Yesod.Form.I18n.Chinese -- FIXME Yesod.Helpers.Crud ghc-options: -Wall
