http-link-header 1.0.3 → 1.0.3.1
raw patch · 2 files changed
+6/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
http-link-header.cabal view
@@ -1,11 +1,11 @@ name: http-link-header-version: 1.0.3+version: 1.0.3.1 synopsis: A parser and writer for the HTTP Link header as specified in RFC 5988 "Web Linking". description: https://github.com/myfreeweb/http-link-header category: Web homepage: https://github.com/myfreeweb/http-link-header author: Greg V-copyright: 2014-2016 Greg V <greg@unrelenting.technology>+copyright: 2014-2018 Greg V <greg@unrelenting.technology> maintainer: greg@unrelenting.technology license: PublicDomain license-file: UNLICENSE@@ -14,7 +14,7 @@ extra-source-files: README.md tested-with:- GHC == 8.0.1+ GHC == 8.4.3 source-repository head type: git@@ -48,7 +48,7 @@ , QuickCheck , hspec-attoparsec default-language: Haskell2010- ghc-options: -threaded -fhpc -Wall+ ghc-options: -threaded -Wall hs-source-dirs: test-suite main-is: Spec.hs other-modules:
test-suite/Network/HTTP/LinkSpec.hs view
@@ -21,7 +21,8 @@ params ← listOf genParam return $ fromJust $ lnk (mconcat [urlScheme, urlDomain, ".", urlTld, "/", urlPath]) params where genParam = do- otherParamKey ← listOf1 $ elements ['a'..'z']+ otherParamKey ← suchThat (listOf1 $ elements ['a'..'z']) (\x → x /= "rel" && x /= "rev" && x /= "title"+ && x /= "title*" && x /= "hreflang" && x /= "anchor" && x /= "media" && x /= "type") paramKey ← elements [Rel, Rev, Title, Hreflang, Anchor, Media, ContentType, Other (T.pack otherParamKey)] paramValue ← listOf $ elements ['a'..'z'] return (paramKey, T.pack paramValue)