From c945915f1dcdd9654b1970391f1adc6c8a3243b8 Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Sat, 22 Nov 2014 15:58:52 +0100
Subject: [PATCH] fix haddocks

---
 src/Servant/API/Capture.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Servant/API/Capture.hs b/src/Servant/API/Capture.hs
index e248a0d8..f6841911 100644
--- a/src/Servant/API/Capture.hs
+++ b/src/Servant/API/Capture.hs
@@ -39,9 +39,9 @@ captured _ = fromText
 --
 -- Example:
 --
--- > type MyApi = "books" ':>' 'Capture' "isbn" 'Text' ':>' 'Get' Book
+-- > type MyApi = "books" :> Capture "isbn" Text :> Get Book
 -- >
--- > server :: 'Server' MyApi
+-- > server :: Server MyApi
 -- > server = getBook
 -- >   where getBook :: Text -> 'EitherT' (Int, String) IO Book
 -- >         getBook isbn = ...
@@ -73,7 +73,7 @@ instance (KnownSymbol capture, FromText a, HasServer sublayout)
 --
 -- Example:
 --
--- > type MyApi = "books" ':>' 'Capture' "isbn" 'Text' ':>' 'Get' Book
+-- > type MyApi = "books" :> Capture "isbn" Text :> Get Book
 -- >
 -- > myApi :: Proxy MyApi
 -- > myApi = Proxy