eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Re-export Web.FormUrlEncoded from Servant.API

Browse source
This commit is contained in:
Erik Aker 2020-01-18 22:04:24 -08:00
parent cee0763507
commit 75da485e0f
7 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-client-core/servant-client-core.cabal
View file

@ -79,7 +79,6 @@ library
, base64-bytestring >= 1.0.0.1 && < 1.1
, exceptions >= 0.10.0 && < 0.11
, free >= 5.1 && < 5.2
, http-api-data >= 0.4 && < 0.4.2
, http-media >= 0.7.1.3 && < 0.9
, http-types >= 0.12.2 && < 0.13
, network-uri >= 2.6.1.0 && < 2.7

4
servant-client-core/src/Servant/Client/Core/HasClient.hs
View file

@ -49,7 +49,7 @@ import Servant.API
IsSecure, MimeRender (mimeRender),
MimeUnrender (mimeUnrender), NoContent (NoContent), QueryFlag,
QueryParam', QueryParams, QueryParamForm', Raw, ReflectMethod (..), RemoteHost,
ReqBody', SBoolI, Stream, StreamBody', Summary, ToHttpApiData,
ReqBody', SBoolI, Stream, StreamBody', Summary, ToHttpApiData, ToForm (..),
ToSourceIO (..), Vault, Verb, NoContentVerb, WithNamedContext,
contentType, getHeadersHList, getResponse, toQueryParam,
toUrlPiece)
@ -57,8 +57,6 @@ import Servant.API.ContentTypes
(contentTypes)
import Servant.API.Modifiers
(FoldRequired, RequiredArgument, foldRequiredArgument)
import Web.FormUrlEncoded
(ToForm (..))
import Servant.Client.Core.Auth
import Servant.Client.Core.BasicAuth

5
servant-client-core/src/Servant/Client/Core/Request.hs
View file

@ -53,9 +53,8 @@ import Network.HTTP.Types
(Header, HeaderName, HttpVersion (..), Method, QueryItem,
http11, methodGet)
import Servant.API
(ToHttpApiData, toEncodedUrlPiece, toHeader, SourceIO)
import Web.FormUrlEncoded
(ToForm (..), toListStable)
(ToHttpApiData, toEncodedUrlPiece, toHeader, SourceIO,
ToForm (..), toListStable)
import Servant.Client.Core.Internal (mediaTypeRnf)

2
servant-docs/servant-docs.cabal
View file

@ -62,7 +62,6 @@ library
, base-compat >= 0.10.5 && < 0.12
, case-insensitive >= 1.2.0.11 && < 1.3
, hashable >= 1.2.7.0 && < 1.4
, http-api-data >= 0.4 && < 0.4.2
, http-media >= 0.7.1.3 && < 0.9
, http-types >= 0.12.2 && < 0.13
, lens >= 4.17 && < 4.19
@ -101,7 +100,6 @@ test-suite spec
base
, base-compat
, aeson
, http-api-data
, lens
, servant
, servant-docs

2
servant-docs/src/Servant/Docs/Internal.hs
View file

@ -64,8 +64,6 @@ import GHC.TypeLits
import Servant.API
import Servant.API.ContentTypes
import Servant.API.TypeLevel
import Web.FormUrlEncoded
(ToForm(..), urlEncodeAsForm)
import qualified Data.Universe.Helpers as U

3
servant-docs/test/Servant/DocsSpec.hs
View file

@ -1,5 +1,4 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleContexts #-}
@ -36,8 +35,6 @@ import Test.Tasty.Golden
(goldenVsString)
import Test.Tasty.HUnit
(Assertion, HasCallStack, assertFailure, testCase, (@?=))
import Web.FormUrlEncoded
(ToForm)
import Servant.API
import Servant.Docs.Internal

5
servant/src/Servant/API.hs
View file

@ -58,6 +58,9 @@ module Servant.API (
module Web.HttpApiData,
-- | Classes and instances for types that can be converted to and from HTTP API data.
-- * ToForm and FromForm
module Web.FormUrlEncoded,
-- | Classes and instances for working with Forms
-- * Experimental modules
module Servant.API.Experimental.Auth,
@ -139,3 +142,5 @@ import Servant.Links
(HasLink (..), IsElem, IsElem', Link, URI (..), safeLink)
import Web.HttpApiData
(FromHttpApiData (..), ToHttpApiData (..))
import Web.FormUrlEncoded
(ToForm (..), urlEncodeAsForm, toListStable)