Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-lucid for openSUSE:Factory checked in at 2021-03-10 08:56:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-lucid (Old) and /work/SRC/openSUSE:Factory/.ghc-lucid.new.2378 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-lucid" Wed Mar 10 08:56:20 2021 rev:5 rq:877981 version:2.9.12.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-lucid/ghc-lucid.changes 2020-12-22 11:42:22.485665058 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-lucid.new.2378/ghc-lucid.changes 2021-03-10 08:58:07.154942489 +0100 @@ -1,0 +2,8 @@ +Tue Mar 2 09:33:12 UTC 2021 - [email protected] + +- Update lucid to version 2.9.12.1. + ## 2.9.12.1 + + * Allow different orderings of attributes in test-suite + +------------------------------------------------------------------- Old: ---- lucid-2.9.12.tar.gz lucid.cabal New: ---- lucid-2.9.12.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-lucid.spec ++++++ --- /var/tmp/diff_new_pack.Zpj6eA/_old 2021-03-10 08:58:07.738943092 +0100 +++ /var/tmp/diff_new_pack.Zpj6eA/_new 2021-03-10 08:58:07.742943095 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-lucid # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,13 +19,12 @@ %global pkg_name lucid %bcond_with tests Name: ghc-%{pkg_name} -Version: 2.9.12 +Version: 2.9.12.1 Release: 0 Summary: Clear to write, read and edit DSL for HTML License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-blaze-builder-devel BuildRequires: ghc-bytestring-devel @@ -70,7 +69,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ lucid-2.9.12.tar.gz -> lucid-2.9.12.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lucid-2.9.12/CHANGELOG.md new/lucid-2.9.12.1/CHANGELOG.md --- old/lucid-2.9.12/CHANGELOG.md 2019-11-03 13:20:29.000000000 +0100 +++ new/lucid-2.9.12.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,3 +1,7 @@ +## 2.9.12.1 + +* Allow different orderings of attributes in test-suite + ## 2.9.12 * Add MonadFix instance diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lucid-2.9.12/lucid.cabal new/lucid-2.9.12.1/lucid.cabal --- old/lucid-2.9.12/lucid.cabal 2019-11-03 13:21:22.000000000 +0100 +++ new/lucid-2.9.12.1/lucid.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: lucid -version: 2.9.12 +version: 2.9.12.1 synopsis: Clear to write, read and edit DSL for HTML description: Clear to write, read and edit DSL for HTML. @@ -19,11 +19,12 @@ copyright: 2014-2017 Chris Done category: Web build-type: Simple -cabal-version: >=1.8 +cabal-version: >=1.10 extra-source-files: README.md, CHANGELOG.md -tested-with: GHC==7.10.3,GHC==8.0.2,GHC==8.2.2,GHC==8.4.4,GHC==8.6.5, GHC==8.8.1 +tested-with: GHC==7.10.3,GHC==8.0.2,GHC==8.2.2,GHC==8.4.4,GHC==8.6.5,GHC==8.8.4,GHC==8.10.4,GHC==9.0.1 library + default-language: Haskell2010 hs-source-dirs: src/ ghc-options: -Wall -O2 exposed-modules: Lucid @@ -32,7 +33,7 @@ Lucid.Bootstrap -- GHC boot libraries - build-depends: base >=4.8 && <4.14 + build-depends: base >=4.8 && <4.16 , bytestring >=0.10.6.0 , containers >=0.5.6.2 , transformers >=0.4.2.0 @@ -51,7 +52,12 @@ , mmorph >=1.0.3 , unordered-containers >=0.2.5.1 +source-repository head + type: git + location: https://github.com/chrisdone/lucid.git + test-suite test + default-language: Haskell2010 type: exitcode-stdio-1.0 main-is: Main.hs hs-source-dirs: test @@ -66,6 +72,7 @@ mtl benchmark bench + default-language: Haskell2010 type: exitcode-stdio-1.0 hs-source-dirs: benchmarks main-is: Main.hs @@ -80,6 +87,7 @@ ghc-options: -O2 benchmark bench-io + default-language: Haskell2010 type: exitcode-stdio-1.0 hs-source-dirs: benchmarks main-is: IO.hs diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lucid-2.9.12/test/Main.hs new/lucid-2.9.12.1/test/Main.hs --- old/lucid-2.9.12/test/Main.hs 2019-11-03 13:19:11.000000000 +0100 +++ new/lucid-2.9.12.1/test/Main.hs 2001-09-09 03:46:40.000000000 +0200 @@ -38,6 +38,10 @@ describe "commuteHtmlT" testCommuteHtmlT describe "monadFix" testMonadFix +(==?*) :: (Eq a, Show a) => a -> [a] -> Assertion +x ==?* xs | x `elem` xs = return () + | otherwise = assertFailure $ show x ++ " is not equal to any of " ++ show xs + -- | Test text/unicode. testText :: Spec testText = @@ -103,18 +107,22 @@ (p_ [class_ "foo"] (p_ "")) == "<p class=\"foo\"><p></p></p>") - it "mixed" - (renderText + it "mixed" $ + renderText (p_ [class_ "foo",style_ "attrib"] (do style_ "" - style_ "")) == - "<p style=\"attrib\" class=\"foo\"><style></style><style></style></p>") + style_ "")) ==?* + [ "<p style=\"attrib\" class=\"foo\"><style></style><style></style></p>" + , "<p class=\"foo\" style=\"attrib\"><style></style><style></style></p>" + ] it "no closing" (renderText (p_ [class_ "foo"] (input_ [])) == "<p class=\"foo\"><input></p>") - it "multiple" - (renderText (p_ [class_ "foo",id_ "zot"] "foo") == - "<p id=\"zot\" class=\"foo\">foo</p>") + it "multiple" $ + renderText (p_ [class_ "foo",id_ "zot"] "foo") ==?* + [ "<p id=\"zot\" class=\"foo\">foo</p>" + , "<p class=\"foo\" id=\"zot\">foo</p>" + ] it "encoded" (renderText (p_ [class_ "foo<>"] "foo") == "<p class=\"foo<>\">foo</p>") @@ -152,24 +160,30 @@ [class_ "foo"] (p_ "")) == "<p class=\"foo\"><p></p></p>") - it "mixed" - (renderText + it "mixed" $ + renderText (with p_ [class_ "foo",style_ "attrib"] - (style_ "")) == - "<p style=\"attrib\" class=\"foo\"><style></style></p>") - it "no closing" - (renderText (with p_ [class_ "foo"] (with (input_ [type_ "text"]) [class_ "zot"])) == - "<p class=\"foo\"><input type=\"text\" class=\"zot\"></p>") - it "multiple" - (renderText (with p_ [class_ "foo",id_ "zot"] "foo") == - "<p id=\"zot\" class=\"foo\">foo</p>") + (style_ "")) ==?* + [ "<p style=\"attrib\" class=\"foo\"><style></style></p>" + , "<pclass=\"foo\" style=\"attrib\"><style></style></p>" + ] + it "no closing" $ + renderText (with p_ [class_ "foo"] (with (input_ [type_ "text"]) [class_ "zot"])) ==?* + [ "<p class=\"foo\"><input type=\"text\" class=\"zot\"></p>" + , "<p class=\"foo\"><input class=\"zot\" type=\"text\"></p>" + ] + it "multiple" $ + renderText (with p_ [class_ "foo",id_ "zot"] "foo") ==?* + [ "<p id=\"zot\" class=\"foo\">foo</p>" + , "<p class=\"foo\" id=\"zot\">foo</p>" + ] it "encoded" (renderText (with p_ [class_ "foo<>"] "foo") == "<p class=\"foo<>\">foo</p>") it "nesting attributes" (renderText (with (with p_ [class_ "foo"]) [class_ "bar"] "foo") == - "<p class=\"foobar\">foo</p>") + "<p class=\"foobar\">foo</p>") -- | Test that one can use elements with extensible attributes. testExtension :: Spec @@ -177,9 +191,11 @@ do it "bootstrap" (renderText (container_ "Foo!") == "<div class=\" container \">Foo!</div>") - it "bootstrap-attributes-extended" - (renderText (container_ [class_ "bar",id_ "zot"] "Foo!") == - "<div id=\"zot\" class=\" container bar\">Foo!</div>") + it "bootstrap-attributes-extended" $ + renderText (container_ [class_ "bar",id_ "zot"] "Foo!") ==?* + [ "<div id=\"zot\" class=\" container bar\">Foo!</div>" + , "<div class=\" container bar\" id=\"zot\">Foo!</div>" + ] -- | Test special elements that do something different to normal -- elements.
