Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-yesod-form for openSUSE:Factory 
checked in at 2022-10-13 15:44:22
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-yesod-form (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-yesod-form.new.2275 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-yesod-form"

Thu Oct 13 15:44:22 2022 rev:5 rq:1009722 version:1.7.3

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-yesod-form/ghc-yesod-form.changes    
2021-04-26 16:40:37.462174108 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-yesod-form.new.2275/ghc-yesod-form.changes  
2022-10-13 15:44:59.763071839 +0200
@@ -1,0 +2,20 @@
+Thu Oct  6 03:36:55 UTC 2022 - Peter Simons <[email protected]>
+
+- Update yesod-form to version 1.7.3.
+  ## 1.7.3
+
+  * Fixed `radioField` according to Bootstrap 3 docs. 
[#1783](https://github.com/yesodweb/yesod/pull/1783)
+
+-------------------------------------------------------------------
+Sun Sep 18 07:56:01 UTC 2022 - Peter Simons <[email protected]>
+
+- Update yesod-form to version 1.7.2.
+  ## 1.7.2
+
+  * Added `withRadioField` and re-express `radioField` into that. 
[#1775](https://github.com/yesodweb/yesod/pull/1775)
+
+  ## 1.7.1
+
+  * Added `colorField` for creating a html color field (`<input 
type="color">`) [#1748](https://github.com/yesodweb/yesod/pull/1748)
+
+-------------------------------------------------------------------

Old:
----
  yesod-form-1.7.0.tar.gz

New:
----
  yesod-form-1.7.3.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-yesod-form.spec ++++++
--- /var/tmp/diff_new_pack.mvKaNQ/_old  2022-10-13 15:45:00.255072801 +0200
+++ /var/tmp/diff_new_pack.mvKaNQ/_new  2022-10-13 15:45:00.259072808 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-yesod-form
 #
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2022 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -19,7 +19,7 @@
 %global pkg_name yesod-form
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        1.7.0
+Version:        1.7.3
 Release:        0
 Summary:        Form handling support for Yesod Web Framework
 License:        MIT
@@ -57,7 +57,7 @@
 API docs and the README are available at
 <http://www.stackage.org/package/yesod-form>. Third-party packages which you
 can find useful: <http://hackage.haskell.org/package/yesod-form-richtext
-yesod-form-richtext> - richtext form fields (currntly it provides only
+yesod-form-richtext> - richtext form fields (currently it provides only
 Summernote support).
 
 %package devel

++++++ yesod-form-1.7.0.tar.gz -> yesod-form-1.7.3.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/ChangeLog.md 
new/yesod-form-1.7.3/ChangeLog.md
--- old/yesod-form-1.7.0/ChangeLog.md   2021-04-15 07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/ChangeLog.md   2022-10-06 05:36:30.000000000 +0200
@@ -1,5 +1,17 @@
 # ChangeLog for yesod-form
 
+## 1.7.3
+
+* Fixed `radioField` according to Bootstrap 3 docs. 
[#1783](https://github.com/yesodweb/yesod/pull/1783)
+
+## 1.7.2
+
+* Added `withRadioField` and re-express `radioField` into that. 
[#1775](https://github.com/yesodweb/yesod/pull/1775)
+
+## 1.7.1
+
+* Added `colorField` for creating a html color field (`<input type="color">`) 
[#1748](https://github.com/yesodweb/yesod/pull/1748)
+
 ## 1.7.0
 
 * Extended `OptionList` by `OptionListGrouped` and implemented grouped select 
fields (`<select>` with `<optgroup>`) 
[#1722](https://github.com/yesodweb/yesod/pull/1722)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/Fields.hs 
new/yesod-form-1.7.3/Yesod/Form/Fields.hs
--- old/yesod-form-1.7.0/Yesod/Form/Fields.hs   2021-04-15 07:58:44.000000000 
+0200
+++ new/yesod-form-1.7.3/Yesod/Form/Fields.hs   2022-10-06 05:36:30.000000000 
+0200
@@ -49,6 +49,7 @@
     , selectFieldListGrouped
     , radioField
     , radioFieldList
+    , withRadioField
     , checkboxesField
     , checkboxesFieldList
     , multiSelectField
@@ -62,6 +63,7 @@
     , optionsPairs
     , optionsPairsGrouped
     , optionsEnum
+    , colorField
     ) where
 
 import Yesod.Form.Types
@@ -117,6 +119,8 @@
 import Data.Monoid
 #endif
 
+import Data.Char (isHexDigit)
+
 defaultFormMessage :: FormMessage -> Text
 defaultFormMessage = englishFormMessage
 
@@ -173,17 +177,17 @@
 timeField = timeFieldTypeTime
 
 -- | Creates an input with @type="time"@. 
<http://caniuse.com/#search=time%20input%20type Browsers not supporting this 
type> will fallback to a text field, and Yesod will parse the time as described 
in 'timeFieldTypeText'.
--- 
+--
 -- Add the @time@ package and import the "Data.Time.LocalTime" module to use 
this function.
 --
 -- @since 1.4.2
-timeFieldTypeTime :: Monad m => RenderMessage (HandlerSite m) FormMessage => 
Field m TimeOfDay  
+timeFieldTypeTime :: Monad m => RenderMessage (HandlerSite m) FormMessage => 
Field m TimeOfDay
 timeFieldTypeTime = timeFieldOfType "time"
 
 -- | Creates an input with @type="text"@, parsing the time from an 
[H]H:MM[:SS] format, with an optional AM or PM (if not given, AM is assumed for 
compatibility with the 24 hour clock system).
 --
 -- This function exists for backwards compatibility with the old 
implementation of 'timeField', which used to use @type="text"@. Consider using 
'timeField' or 'timeFieldTypeTime' for improved UX and validation from the 
browser.
--- 
+--
 -- Add the @time@ package and import the "Data.Time.LocalTime" module to use 
this function.
 --
 -- @since 1.4.2
@@ -219,7 +223,7 @@
   where showVal = either id (pack . renderHtml)
 
 -- | A newtype wrapper around a 'Text' whose 'ToMarkup' instance converts 
newlines to HTML @\<br>@ tags.
--- 
+--
 -- (When text is entered into a @\<textarea>@, newline characters are used to 
separate lines.
 -- If this text is then placed verbatim into HTML, the lines won't be 
separated, thus the need for replacing with @\<br>@ tags).
 -- If you don't need this functionality, simply use 'unTextarea' to access the 
raw text.
@@ -348,7 +352,7 @@
         if i < 0 || i >= 60
             then fail $ show $ msg $ pack xy
             else return $ fromIntegral (i :: Int)
-            
+
 -- | Creates an input with @type="email"@. Yesod will validate the email's 
correctness according to RFC5322 and canonicalize it by removing comments and 
whitespace (see "Text.Email.Validate").
 emailField :: Monad m => RenderMessage (HandlerSite m) FormMessage => Field m 
Text
 emailField = Field
@@ -527,32 +531,58 @@
 radioField :: (Eq a, RenderMessage site FormMessage)
            => HandlerFor site (OptionList a)
            -> Field (HandlerFor site) a
-radioField = selectFieldHelper
-    (\theId _name _attrs inside -> [whamlet|
+radioField = withRadioField
+    (\theId optionWidget -> [whamlet|
 $newline never
-<div ##{theId}>^{inside}
+<div .radio>
+    <label for=#{theId}-none>
+        <div>
+            ^{optionWidget}
+            _{MsgSelectNone}
 |])
-    (\theId name isSel -> [whamlet|
+    (\theId value _isSel text optionWidget -> [whamlet|
 $newline never
-<label .radio for=#{theId}-none>
-    <div>
-        <input id=#{theId}-none type=radio name=#{name} value=none 
:isSel:checked>
-        _{MsgSelectNone}
+<div .radio>
+    <label for=#{theId}-#{value}>
+        <div>
+            ^{optionWidget}
+            \#{text}
 |])
-    (\theId name attrs value isSel text -> [whamlet|
+
+
+-- | Allows the user to place the option radio widget somewhere in
+--   the template.
+--   For example: If you want a table of radio options to select.
+--   'radioField' is an example on how to use this function.
+--
+--   @since 1.7.2
+withRadioField :: (Eq a, RenderMessage site FormMessage)
+           => (Text -> WidgetFor site ()-> WidgetFor site ()) -- ^ nothing 
case for mopt
+           -> (Text ->  Text -> Bool -> Text -> WidgetFor site () -> WidgetFor 
site ()) -- ^ cases for values
+           -> HandlerFor site (OptionList a)
+           -> Field (HandlerFor site) a
+withRadioField nothingFun optFun =
+  selectFieldHelper outside onOpt inside Nothing
+  where
+    outside theId _name _attrs inside' = [whamlet|
 $newline never
-<label .radio for=#{theId}-#{value}>
-    <div>
-        <input id=#{theId}-#{value} type=radio name=#{name} value=#{value} 
:isSel:checked *{attrs}>
-        \#{text}
-|])
-     Nothing
+<div ##{theId}>^{inside'}
+|]
+    onOpt theId name isSel = nothingFun theId $ [whamlet|
+$newline never
+<input id=#{theId}-none type=radio name=#{name} value=none :isSel:checked>
+|]
+    inside theId name attrs value isSel display =
+       optFun theId value isSel display [whamlet|
+<input id=#{theId}-#{(value)} type=radio name=#{name} value=#{(value)} 
:isSel:checked *{attrs}>
+|]
+
 
 -- | Creates a group of radio buttons to answer the question given in the 
message. Radio buttons are used to allow differentiating between an empty 
response (@Nothing@) and a no response (@Just False@). Consider using the 
simpler 'checkBoxField' if you don't need to make this distinction.
 --
 -- If this field is optional, the first radio button is labeled "\<None>", the 
second \"Yes" and the third \"No".
 --
--- If this field is required, the first radio button is labeled \"Yes" and the 
second \"No". 
+-- If this field is required, the first radio button is labeled \"Yes" and the 
second \"No".
 --
 -- (Exact label titles will depend on localization).
 boolField :: Monad m => RenderMessage (HandlerSite m) FormMessage => Field m 
Bool
@@ -586,7 +616,7 @@
       t -> Left $ SomeMessage $ MsgInvalidBool t
     showVal = either (\_ -> False)
 
--- | Creates an input with @type="checkbox"@. 
+-- | Creates an input with @type="checkbox"@.
 --   While the default @'boolField'@ implements a radio button so you
 --   can differentiate between an empty response (@Nothing@) and a no
 --   response (@Just False@), this simpler checkbox field returns an empty
@@ -944,7 +974,27 @@
 
 -- $optionsOverview
 -- These functions create inputs where one or more options can be selected 
from a list.
--- 
+--
 -- The basic datastructure used is an 'Option', which combines a user-facing 
display value, the internal Haskell value being selected, and an external 
'Text' stored as the @value@ in the form (used to map back to the internal 
value). A list of these, together with a function mapping from an external 
value back to a Haskell value, form an 'OptionList', which several of these 
functions take as an argument.
--- 
+--
 -- Typically, you won't need to create an 'OptionList' directly and can 
instead make one with functions like 'optionsPairs' or 'optionsEnum'. 
Alternatively, you can use functions like 'selectFieldList', which use their 
@[(msg, a)]@ parameter to create an 'OptionList' themselves.
+
+-- | Creates an input with @type="color"@.
+--   The input value must be provided in hexadecimal format #rrggbb.
+--
+-- @since 1.7.1
+colorField :: Monad m => RenderMessage (HandlerSite m) FormMessage => Field m 
Text
+colorField = Field
+    { fieldParse = parseHelper $ \s ->
+        if isHexColor $ unpack s then Right s
+        else Left $ MsgInvalidHexColorFormat s
+    , fieldView = \theId name attrs val _ -> [whamlet|
+$newline never
+<input ##{theId} name=#{name} *{attrs} type=color value=#{either id id val}>
+|]
+    , fieldEnctype = UrlEncoded
+    }
+  where
+      isHexColor :: String -> Bool
+      isHexColor ['#',a,b,c,d,e,f] = all isHexDigit [a,b,c,d,e,f]
+      isHexColor _ = False
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Chinese.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Chinese.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Chinese.hs     2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Chinese.hs     2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 chineseFormMessage MsgBoolYes = "???"
 chineseFormMessage MsgBoolNo = "???"
 chineseFormMessage MsgDelete = "???????"
+chineseFormMessage (MsgInvalidHexColorFormat t) = "???????????????????????? 
#rrggbb ??????????????????: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Czech.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Czech.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Czech.hs       2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Czech.hs       2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 czechFormMessage MsgBoolYes = "Ano"
 czechFormMessage MsgBoolNo = "Ne"
 czechFormMessage MsgDelete = "Smazat?"
+czechFormMessage (MsgInvalidHexColorFormat t) = "Neplatn?? barva, mus?? b??t v 
#rrggbb hexadecim??ln??m form??tu: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Dutch.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Dutch.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Dutch.hs       2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Dutch.hs       2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 dutchFormMessage MsgBoolYes            = "Ja"
 dutchFormMessage MsgBoolNo             = "Nee"
 dutchFormMessage MsgDelete             = "Verwijderen?"
+dutchFormMessage (MsgInvalidHexColorFormat t) = "Ongeldige kleur, moet de 
hexadecimale indeling #rrggbb hebben: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/English.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/English.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/English.hs     2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/English.hs     2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 englishFormMessage MsgBoolYes = "Yes"
 englishFormMessage MsgBoolNo = "No"
 englishFormMessage MsgDelete = "Delete?"
+englishFormMessage (MsgInvalidHexColorFormat t) = "Invalid color, must be in 
#rrggbb hexadecimal format: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/French.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/French.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/French.hs      2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/French.hs      2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 frenchFormMessage MsgBoolYes = "Oui"
 frenchFormMessage MsgBoolNo = "Non"
 frenchFormMessage MsgDelete = "D??truire ?"
+frenchFormMessage (MsgInvalidHexColorFormat t) = "Couleur non valide, doit 
??tre au format hexad??cimal #rrggbb: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/German.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/German.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/German.hs      2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/German.hs      2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 germanFormMessage MsgBoolYes = "Ja"
 germanFormMessage MsgBoolNo = "Nein"
 germanFormMessage MsgDelete = "L??schen?"
+germanFormMessage (MsgInvalidHexColorFormat t) = "Ung??ltige Farbe, muss im 
Hexadezimalformat #rrggbb vorliegen: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Japanese.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Japanese.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Japanese.hs    2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Japanese.hs    2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 japaneseFormMessage MsgBoolYes = "??????"
 japaneseFormMessage MsgBoolNo = "?????????"
 japaneseFormMessage MsgDelete = "???????????????????"
+japaneseFormMessage (MsgInvalidHexColorFormat t) = 
"??????????????????rrggbb16???????????????????????????????????????: " `mappend` 
t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Korean.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Korean.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Korean.hs      2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Korean.hs      2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 koreanFormMessage MsgBoolYes = "???"
 koreanFormMessage MsgBoolNo = "?????????"
 koreanFormMessage MsgDelete = "?????????????????????????"
+koreanFormMessage (MsgInvalidHexColorFormat t) = "????????? 
?????????????????????. #rrggbb 16?????? ??????????????? ?????????.: " `mappend` 
t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Norwegian.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Norwegian.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Norwegian.hs   2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Norwegian.hs   2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 norwegianBokm??lFormMessage MsgBoolNo = "Nei"
 norwegianBokm??lFormMessage MsgDelete = "Slette?"
 norwegianBokm??lFormMessage MsgCsrfWarning = "Som beskyttelse mot ??cross-site 
request forgery??-angrep, vennligst bekreft innsendt skjema."
+norwegianBokm??lFormMessage (MsgInvalidHexColorFormat t) = "Ugyldig farge, m?? 
v??re i #rrggbb heksadesimalt format: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Portuguese.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Portuguese.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Portuguese.hs  2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Portuguese.hs  2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 portugueseFormMessage MsgBoolYes = "Sim"
 portugueseFormMessage MsgBoolNo = "N??o"
 portugueseFormMessage MsgDelete = "Remover?"
+portugueseFormMessage (MsgInvalidHexColorFormat t) = "Cor inv??lida, deve 
estar no formato #rrggbb hexadecimal: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Russian.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Russian.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Russian.hs     2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Russian.hs     2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 russianFormMessage MsgBoolYes = "????"
 russianFormMessage MsgBoolNo = "??????"
 russianFormMessage MsgDelete = "???????????????"
+russianFormMessage (MsgInvalidHexColorFormat t) = "???????????????????????? 
???????????????? ??????????, ???????????? ???????? ?? 
?????????????????????????????????? ?????????????? #rrggbb: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Spanish.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Spanish.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Spanish.hs     2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Spanish.hs     2022-09-08 
13:21:18.000000000 +0200
@@ -25,3 +25,4 @@
 spanishFormMessage MsgBoolYes = "S??"
 spanishFormMessage MsgBoolNo = "No"
 spanishFormMessage MsgDelete = "??Eliminar?"
+spanishFormMessage (MsgInvalidHexColorFormat t) = "Color no v??lido, debe 
estar en formato hexadecimal #rrggbb: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/I18n/Swedish.hs 
new/yesod-form-1.7.3/Yesod/Form/I18n/Swedish.hs
--- old/yesod-form-1.7.0/Yesod/Form/I18n/Swedish.hs     2021-04-15 
07:58:44.000000000 +0200
+++ new/yesod-form-1.7.3/Yesod/Form/I18n/Swedish.hs     2022-09-08 
13:21:18.000000000 +0200
@@ -24,3 +24,4 @@
 swedishFormMessage MsgBoolNo = "Nej"
 swedishFormMessage MsgDelete = "Radera?"
 swedishFormMessage MsgCsrfWarning = "Som skydd mot \"cross-site request 
forgery\" attacker, v??nligen bekr??fta skickandet av formul??ret."
+swedishFormMessage (MsgInvalidHexColorFormat t) = "Ogiltig f??rg, m??ste vara 
i #rrggbb hexadecimalt format: " `mappend` t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/Yesod/Form/Types.hs 
new/yesod-form-1.7.3/Yesod/Form/Types.hs
--- old/yesod-form-1.7.0/Yesod/Form/Types.hs    2021-04-15 07:58:44.000000000 
+0200
+++ new/yesod-form-1.7.3/Yesod/Form/Types.hs    2022-09-08 13:21:18.000000000 
+0200
@@ -229,4 +229,5 @@
                  | MsgBoolYes
                  | MsgBoolNo
                  | MsgDelete
+                 | MsgInvalidHexColorFormat Text
     deriving (Show, Eq, Read)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/yesod-form-1.7.0/yesod-form.cabal 
new/yesod-form-1.7.3/yesod-form.cabal
--- old/yesod-form-1.7.0/yesod-form.cabal       2021-04-15 08:15:39.000000000 
+0200
+++ new/yesod-form-1.7.3/yesod-form.cabal       2022-10-06 05:36:30.000000000 
+0200
@@ -1,6 +1,6 @@
 cabal-version:   >= 1.10
 name:            yesod-form
-version:         1.7.0
+version:         1.7.3
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <[email protected]>
@@ -10,7 +10,7 @@
 stability:       Stable
 build-type:      Simple
 homepage:        http://www.yesodweb.com/
-description:     API docs and the README are available at 
<http://www.stackage.org/package/yesod-form>.  Third-party packages which you 
can find useful: <http://hackage.haskell.org/package/yesod-form-richtext 
yesod-form-richtext> - richtext form fields (currntly it provides only 
Summernote support).
+description:     API docs and the README are available at 
<http://www.stackage.org/package/yesod-form>.  Third-party packages which you 
can find useful: <http://hackage.haskell.org/package/yesod-form-richtext 
yesod-form-richtext> - richtext form fields (currently it provides only 
Summernote support).
 extra-source-files: ChangeLog.md
                     README.md
 

Reply via email to