diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -1,5 +1,9 @@ -# http-link-header [![Hackage](https://img.shields.io/hackage/v/http-link-header.svg?style=flat)](https://hackage.haskell.org/package/http-link-header) [![Build Status](https://img.shields.io/travis/myfreeweb/http-link-header.svg?style=flat)](https://travis-ci.org/myfreeweb/http-link-header) [![Coverage Status](https://img.shields.io/coveralls/myfreeweb/http-link-header.svg?style=flat)](https://coveralls.io/r/myfreeweb/http-link-header) [![unlicense](https://img.shields.io/badge/un-license-green.svg?style=flat)](http://unlicense.org) +[![Hackage](https://img.shields.io/hackage/v/http-link-header?style=flat) ![](https://img.shields.io/endpoint?url=https://hackage-downloads-badge.deno.dev/http-link-header)](https://hackage.haskell.org/package/http-link-header) +[![unlicense](https://img.shields.io/badge/un-license-green.svg?style=flat)](https://unlicense.org) +[![Support me on Patreon](https://img.shields.io/badge/dynamic/json?logo=patreon&color=%23e85b46&label=support%20me%20on%20patreon&query=data.attributes.patron_count&suffix=%20patrons&url=https%3A%2F%2Fwww.patreon.com%2Fapi%2Fcampaigns%2F9395291)](https://www.patreon.com/valpackett) +# http-link-header + A Haskell library than implements a parser and a writer for the HTTP Link header as specified in [RFC 5988 "Web Linking"](https://tools.ietf.org/html/rfc5988). ## Usage @@ -37,16 +41,7 @@ [stack]: https://github.com/commercialhaskell/stack -## Contributing - -Please feel free to submit pull requests! -Bugfixes and simple non-breaking improvements will be accepted without any questions :-) - -By participating in this project you agree to follow the [Contributor Code of Conduct](http://contributor-covenant.org/version/1/2/0/). - -[The list of contributors is available on GitHub](https://github.com/myfreeweb/http-link-header/graphs/contributors). - ## License This is free and unencumbered software released into the public domain. -For more information, please refer to the `UNLICENSE` file or [unlicense.org](http://unlicense.org). +For more information, please refer to the `UNLICENSE` file or [unlicense.org](https://unlicense.org). diff --git a/http-link-header.cabal b/http-link-header.cabal --- a/http-link-header.cabal +++ b/http-link-header.cabal @@ -1,19 +1,19 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.4. +-- This file has been generated from package.yaml by hpack version 0.37.0. -- -- see: https://github.com/sol/hpack name: http-link-header -version: 1.2.1 -synopsis: A parser and writer for the HTTP Link header per RFC 5988 -description: Please see the README on GitHub at +version: 1.2.2 +synopsis: HTTP Link header parser/writer +description: Library for the HTTP Link header as specified in RFC 5988 "Web Linking" category: Web -homepage: https://github.com/myfreeweb/http-link-header#readme -bug-reports: https://github.com/myfreeweb/http-link-header/issues -author: Greg V -maintainer: stevenjshuck@gmail.com -copyright: 2014-2021 Greg V +homepage: https://codeberg.org/valpackett/http-link-header +bug-reports: https://codeberg.org/valpackett/http-link-header/issues +author: Val Packett +maintainer: val@packett.cool +copyright: 2014-2025 Val Packett license: PublicDomain license-file: UNLICENSE build-type: Simple @@ -22,7 +22,7 @@ source-repository head type: git - location: https://github.com/myfreeweb/http-link-header + location: https://codeberg.org/valpackett/http-link-header.git library exposed-modules: diff --git a/library/Network/HTTP/Link.hs b/library/Network/HTTP/Link.hs --- a/library/Network/HTTP/Link.hs +++ b/library/Network/HTTP/Link.hs @@ -12,11 +12,11 @@ import Control.Error.Util (hush) import Data.Text (Text, pack) -import Data.Text.Encoding +import Data.Text.Encoding (encodeUtf8) import safe Network.HTTP.Link.Parser import safe Network.HTTP.Link.Types import safe Network.HTTP.Link.Writer -import Web.HttpApiData +import Web.HttpApiData (ToHttpApiData(..)) instance (IsURI uri) ⇒ ToHttpApiData [Link uri] where toUrlPiece = toUrlPiece . writeLinkHeader diff --git a/library/Network/HTTP/Link/Parser.hs b/library/Network/HTTP/Link/Parser.hs --- a/library/Network/HTTP/Link/Parser.hs +++ b/library/Network/HTTP/Link/Parser.hs @@ -14,7 +14,7 @@ ) where import Prelude hiding (takeWhile, take) -import Control.Applicative +import Control.Applicative ((<|>), many) import Control.Error.Util (hush) import Data.Text hiding (takeWhile, map, take) import Data.Text.Encoding (decodeUtf8) @@ -23,8 +23,8 @@ #if !MIN_VERSION_base(4,8,0) import Data.Monoid (mconcat) #endif -import Data.Attoparsec.Text -import Network.URI +import Data.Attoparsec.Text (Parser, parseOnly, char, sepBy', many', skipSpace, takeWhile, takeWhile1, take, inClass) +import Network.URI (unEscapeString) import Network.HTTP.Link.Types allConditions ∷ [a → Bool] → a → Bool diff --git a/library/Network/HTTP/Link/Types.hs b/library/Network/HTTP/Link/Types.hs --- a/library/Network/HTTP/Link/Types.hs +++ b/library/Network/HTTP/Link/Types.hs @@ -3,8 +3,8 @@ -- | The data type definitions for the HTTP Link header. module Network.HTTP.Link.Types where -import Data.Text -import Network.URI +import Data.Text (Text, pack, unpack) +import Network.URI (URI, parseURIReference) -- | The link attribute key. data LinkParam = Rel | Anchor | Rev | Hreflang | Media | Title | Title' | ContentType | Other Text diff --git a/library/Network/HTTP/Link/Writer.hs b/library/Network/HTTP/Link/Writer.hs --- a/library/Network/HTTP/Link/Writer.hs +++ b/library/Network/HTTP/Link/Writer.hs @@ -9,7 +9,7 @@ #if !MIN_VERSION_base(4,8,0) import Data.Monoid (mconcat) #endif -import Network.URI +import Network.URI (escapeURIString) import Network.HTTP.Link.Types writeParamKey ∷ LinkParam → Text