git.iko.soy/servant
on master help sign in
Remove extra parameter from haddock section of Fragment instances (#1362)
commitce638027a8d54130cee8a1a588931326c10b2a7a authorAndrey Prokopenko <persiantiger@yandex.ru> dateSun 22 Nov 2020, 13:08 (6 years ago) parentaa4f54e
2 files changed+6−7
compare with master
unifiedsplit
servant-client-core/src/Servant/Client/Core/HasClient.hs+3−4 servant-server/src/Servant/Server/Internal.hs+3−3
servant-client-core/src/Servant/Client/Core/HasClient.hs+3−4
@@ -761,11 +761,10 @@ instance ( HasClient m api
761761-- > myApi :: Proxy MyApi
762762-- > myApi = Proxy
763763-- >
764−-- > getBooksBy :: Maybe Text -> ClientM [Book]
765−-- > getBooksBy = client myApi
764+-- > getBooks :: ClientM [Book]
765+-- > getBooks = client myApi
766766-- > -- then you can just use "getBooksBy" to query that endpoint.
767−-- > -- 'getBooksBy Nothing' for all books
768−-- > -- 'getBooksBy (Just "Isaac Asimov")' to get all books by Isaac Asimov
767+-- > -- 'getBooks' for all books.
769768#ifdef HAS_TYPE_ERROR
770769instance (AtLeastOneFragment api, FragmentUnique (Fragment a :> api), HasClient m api
771770#else
servant-server/src/Servant/Server/Internal.hs+3−3
@@ -890,9 +890,9 @@ type HasServerArrowTypeError a b =
890890-- > type MyApi = "books" :> Fragment Text :> Get '[JSON] [Book]
891891-- >
892892-- > server :: Server MyApi
893−-- > server = getBooksBy
894−-- > where getBooksBy :: Handler [Book]
895−-- > getBooksBy = ...return all books...
893+-- > server = getBooks
894+-- > where getBooks :: Handler [Book]
895+-- > getBooks = ...return all books...
896896#ifdef HAS_TYPE_ERROR
897897instance (AtLeastOneFragment api, FragmentUnique (Fragment a1 :> api), HasServer api context)
898898#else