Remove extra parameter from haddock section of Fragment instances (#1362)
This commit is contained in:
parent
aa4f54e92e
commit
ce638027a8
2 changed files with 6 additions and 7 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue