lucid 2.1 → 2.2

raw patch · 4 files changed

+23/−1 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Lucid: renderToFile :: FilePath -> Html a -> IO ()

Files

CHANGELOG.md +8/−0
lucid.cabal +1/−1
src/Lucid.hs +1/−0
test/Main.hs +13/−0

CHANGELOG.md view

@@ -1,3 +1,11 @@+## 2.2++* Export renderToFile from top-level Lucid module.++## 2.1++* Add some extra HTML tags.+ ## 2.0  * Use variadic HTML terms.

lucid.cabal view

@@ -1,5 +1,5 @@ name:                lucid-version:             2.1+version:             2.2 synopsis:            Clear to write, read and edit DSL for HTML description:         Clear to write, read and edit DSL for HTML. See the 'Lucid' module                      for description and documentation.

src/Lucid.hs view

@@ -13,6 +13,7 @@   ,renderBS   ,renderTextT   ,renderBST+  ,renderToFile    -- * Running    -- $running   ,execHtmlT

test/Main.hs view

@@ -27,6 +27,7 @@   describe "attributes-with" testAttributesWith   describe "extension" testExtension   describe "special-elements" testSpecials+  describe "self-closing" testSelfClosing  -- | Test text/unicode. testText :: Spec@@ -178,3 +179,15 @@      it "style"         (renderText (style_ "body{background:url('Hello, World!')}") ==          "<style>body{background:url('Hello, World!')}</style>")++-- | Elements which do not contain children.+testSelfClosing :: Spec+testSelfClosing =+  do it "br" (renderText (br_ []) == "<br>")+     it "hr" (renderText (hr_ []) == "<br>")+     it "input"+        (renderText (input_ []) ==+         "<input>")+     it "input"+        (renderText (input_ [type_ "text"]) ==+         "<input type=\"text\">")