From ce638027a8d54130cee8a1a588931326c10b2a7a Mon Sep 17 00:00:00 2001 From: Andrey Prokopenko Date: Sun, 22 Nov 2020 13:08:32 +0300 Subject: [PATCH] Remove extra parameter from haddock section of Fragment instances (#1362) --- servant-client-core/src/Servant/Client/Core/HasClient.hs | 7 +++---- servant-server/src/Servant/Server/Internal.hs | 6 +++--- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/servant-client-core/src/Servant/Client/Core/HasClient.hs b/servant-client-core/src/Servant/Client/Core/HasClient.hs index f9e087f5..a030a242 100644 --- a/servant-client-core/src/Servant/Client/Core/HasClient.hs +++ b/servant-client-core/src/Servant/Client/Core/HasClient.hs @@ -761,11 +761,10 @@ instance ( HasClient m api -- > myApi :: Proxy MyApi -- > myApi = Proxy -- > --- > getBooksBy :: Maybe Text -> ClientM [Book] --- > getBooksBy = client myApi +-- > getBooks :: ClientM [Book] +-- > getBooks = client myApi -- > -- then you can just use "getBooksBy" to query that endpoint. --- > -- 'getBooksBy Nothing' for all books --- > -- 'getBooksBy (Just "Isaac Asimov")' to get all books by Isaac Asimov +-- > -- 'getBooks' for all books. #ifdef HAS_TYPE_ERROR instance (AtLeastOneFragment api, FragmentUnique (Fragment a :> api), HasClient m api #else diff --git a/servant-server/src/Servant/Server/Internal.hs b/servant-server/src/Servant/Server/Internal.hs index 8ebfa9a1..9579367f 100644 --- a/servant-server/src/Servant/Server/Internal.hs +++ b/servant-server/src/Servant/Server/Internal.hs @@ -890,9 +890,9 @@ type HasServerArrowTypeError a b = -- > type MyApi = "books" :> Fragment Text :> Get '[JSON] [Book] -- > -- > server :: Server MyApi --- > server = getBooksBy --- > where getBooksBy :: Handler [Book] --- > getBooksBy = ...return all books... +-- > server = getBooks +-- > where getBooks :: Handler [Book] +-- > getBooks = ...return all books... #ifdef HAS_TYPE_ERROR instance (AtLeastOneFragment api, FragmentUnique (Fragment a1 :> api), HasServer api context) #else