From 0c80bc8f8ea413890710e58f7c313db0d8b5f6fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ga=C3=ABl=20Deest?= <gael.deest@tweag.io>
Date: Mon, 21 Mar 2022 14:18:49 +0100
Subject: [PATCH] Fix haddock documentation for (//) and (/:)

The examples for these two operators weren't displayed properly due to invalid Haddock markup.
---
 servant-client-core/src/Servant/Client/Core/HasClient.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/servant-client-core/src/Servant/Client/Core/HasClient.hs b/servant-client-core/src/Servant/Client/Core/HasClient.hs
index ef03cb4e..351c87b9 100644
--- a/servant-client-core/src/Servant/Client/Core/HasClient.hs
+++ b/servant-client-core/src/Servant/Client/Core/HasClient.hs
@@ -874,7 +874,7 @@ infixl 2 /:
 --
 -- Example:
 --
--- @@
+-- @
 -- type Api = NamedRoutes RootApi
 --
 -- data RootApi mode = RootApi
@@ -895,7 +895,7 @@ infixl 2 /:
 --
 -- endpointClient :: ClientM Person
 -- endpointClient = client // subApi // endpoint
--- @@
+-- @
 (//) :: a -> (a -> b) -> b
 x // f = f x
 
@@ -906,7 +906,7 @@ x // f = f x
 --
 -- Example:
 --
--- @@
+-- @
 -- type Api = NamedRoutes RootApi
 --
 -- data RootApi mode = RootApi
@@ -931,7 +931,7 @@ x // f = f x
 --
 -- endpointClient :: ClientM Person
 -- endpointClient = client // subApi /: "foobar123" // endpoint
--- @@
+-- @
 (/:) :: (a -> b -> c) -> b -> a -> c
 (/:) = flip