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

Remove extra parameter from haddock section of Fragment instances (#1362)

Browse Source
This commit is contained in:
Andrey Prokopenko 2020-11-22 13:08:32 +03:00 committed by GitHub
parent aa4f54e92e
commit ce638027a8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
servant-client-core/src/Servant/Client/Core/HasClient.hs
View File

@ -761,11 +761,10 @@ instance ( HasClient m api
-- > myApi :: Proxy MyApi -- > myApi :: Proxy MyApi
-- > myApi = Proxy -- > myApi = Proxy
-- > -- >
-- > getBooksBy :: Maybe Text -> ClientM [Book] -- > getBooks :: ClientM [Book]
-- > getBooksBy = client myApi -- > getBooks = client myApi
-- > -- then you can just use "getBooksBy" to query that endpoint. -- > -- then you can just use "getBooksBy" to query that endpoint.
-- > -- 'getBooksBy Nothing' for all books -- > -- 'getBooks' for all books.
-- > -- 'getBooksBy (Just "Isaac Asimov")' to get all books by Isaac Asimov
#ifdef HAS_TYPE_ERROR #ifdef HAS_TYPE_ERROR
instance (AtLeastOneFragment api, FragmentUnique (Fragment a :> api), HasClient m api instance (AtLeastOneFragment api, FragmentUnique (Fragment a :> api), HasClient m api
#else #else

6
servant-server/src/Servant/Server/Internal.hs
View File

@ -890,9 +890,9 @@ type HasServerArrowTypeError a b =
-- > type MyApi = "books" :> Fragment Text :> Get '[JSON] [Book] -- > type MyApi = "books" :> Fragment Text :> Get '[JSON] [Book]
-- > -- >
-- > server :: Server MyApi -- > server :: Server MyApi
-- > server = getBooksBy -- > server = getBooks
-- > where getBooksBy :: Handler [Book] -- > where getBooks :: Handler [Book]
-- > getBooksBy = ...return all books... -- > getBooks = ...return all books...
#ifdef HAS_TYPE_ERROR #ifdef HAS_TYPE_ERROR
instance (AtLeastOneFragment api, FragmentUnique (Fragment a1 :> api), HasServer api context) instance (AtLeastOneFragment api, FragmentUnique (Fragment a1 :> api), HasServer api context)
#else #else