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

Fix haddock documentation for (//) and (/:)

Browse source 
The examples for these two operators weren't displayed properly due to invalid Haddock markup.
This commit is contained in:
Gaël Deest 2022-03-21 14:18:49 +01:00
parent de923fc887
commit 0c80bc8f8e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -874,7 +874,7 @@ infixl 2 /:
-- --
-- Example: -- Example:
-- --
-- @@ -- @
-- type Api = NamedRoutes RootApi -- type Api = NamedRoutes RootApi
-- --
-- data RootApi mode = RootApi -- data RootApi mode = RootApi
@ -895,7 +895,7 @@ infixl 2 /:
-- --
-- endpointClient :: ClientM Person -- endpointClient :: ClientM Person
-- endpointClient = client // subApi // endpoint -- endpointClient = client // subApi // endpoint
-- @@ -- @
(//) :: a -> (a -> b) -> b (//) :: a -> (a -> b) -> b
x // f = f x x // f = f x
@ -906,7 +906,7 @@ x // f = f x
-- --
-- Example: -- Example:
-- --
-- @@ -- @
-- type Api = NamedRoutes RootApi -- type Api = NamedRoutes RootApi
-- --
-- data RootApi mode = RootApi -- data RootApi mode = RootApi
@ -931,7 +931,7 @@ x // f = f x
-- --
-- endpointClient :: ClientM Person -- endpointClient :: ClientM Person
-- endpointClient = client // subApi /: "foobar123" // endpoint -- endpointClient = client // subApi /: "foobar123" // endpoint
-- @@ -- @
(/:) :: (a -> b -> c) -> b -> a -> c (/:) :: (a -> b -> c) -> b -> a -> c
(/:) = flip (/:) = flip