servant-lucid 0.8.1 → 0.9

raw patch · 3 files changed

+22/−12 lines, 3 filesdep ~http-mediadep ~semigroupsdep ~servantPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: http-media, semigroups, servant, servant-server, warp

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• servant-lucid.cabal +14/−11
• src/Servant/HTML/Lucid.hs +4/−1

@@ -1,3 +1,7 @@+# 0.9++- Also accept content type without character set i.e `text/html`+ # 0.8.1  - Support `servant-0.14`

@@ -1,5 +1,7 @@+cabal-version:       >=1.10 name:                servant-lucid-version:             0.8.1+version:             0.9+ synopsis:            Servant support for lucid description:   Servant support for lucid.@@ -7,23 +9,24 @@   'HTML' content type which will use `ToHtml` class.   .   Lucid.Servant uses `Link` rather than `Text` for safe 'href' attributes.+ homepage:            http://haskell-servant.readthedocs.org/+bug-reports:         http://github.com/haskell-servant/servant-lucid/issues license:             BSD3 license-file:        LICENSE author:              Servant Contributors maintainer:          haskell-servant-maintainers@googlegroups.com-copyright:           2015-2016 Servant Contributors+copyright:           2015-2018 Servant Contributors category:            Web, Servant build-type:          Simple extra-source-files:  CHANGELOG.md-cabal-version:       >=1.10-bug-reports:         http://github.com/haskell-servant/servant-lucid/issues tested-with:-  GHC==7.8.4,-  GHC==7.10.3,-  GHC==8.0.2,-  GHC==8.2.2,-  GHC==8.4.3+  GHC ==7.8.4+   || ==7.10.3+   || ==8.0.2+   || ==8.2.2+   || ==8.4.4+   || ==8.6.3  source-repository head   type: git@@ -36,7 +39,7 @@                      , http-media >=0.6.4   && <0.8                      , lucid      >=2.9.8   && <2.10                      , text       >=1.2.3.0 && <1.3-                     , servant    >=0.14    && <0.15+                     , servant    >=0.14    && <0.16    if !impl(ghc >= 8.0)     build-depends:     semigroups >=0.18.4  && <0.19@@ -55,7 +58,7 @@       base     , lucid     , servant-lucid-    , servant-server >=0.14     && <0.15+    , servant-server >=0.14     && <0.16     , wai            >=3.0.3.0  && <3.3     , warp           >=3.0.13.1 && <3.3   default-language: Haskell2010

@@ -14,6 +14,7 @@ -- Will then check that @a@ has a `ToHtml` instance, or is `Html`. module Servant.HTML.Lucid where +import qualified Data.List.NonEmpty as NE import           Data.Typeable      (Typeable) import           Lucid              (ToHtml (..), renderBS) import qualified Network.HTTP.Media as M@@ -23,7 +24,9 @@  -- | @text/html;charset=utf-8@ instance Accept HTML where-    contentType _ = "text" M.// "html" M./: ("charset", "utf-8")+    contentTypes _ =+      "text" M.// "html" M./: ("charset", "utf-8") NE.:|+      ["text" M.// "html"]  instance ToHtml a => MimeRender HTML a where     mimeRender _ = renderBS . toHtml