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

fix haddocks

Browse source
This commit is contained in:
Alp Mestanogullari 2014-11-22 15:58:52 +01:00
parent e9ebb0f10b
commit c945915f1d
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Servant/API/Capture.hs
View file

@ -39,9 +39,9 @@ captured _ = fromText
-- --
-- Example: -- 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 -- > server = getBook
-- > where getBook :: Text -> 'EitherT' (Int, String) IO Book -- > where getBook :: Text -> 'EitherT' (Int, String) IO Book
-- > getBook isbn = ... -- > getBook isbn = ...
@ -73,7 +73,7 @@ instance (KnownSymbol capture, FromText a, HasServer sublayout)
-- --
-- Example: -- Example:
-- --
-- > type MyApi = "books" ':>' 'Capture' "isbn" 'Text' ':>' 'Get' Book -- > type MyApi = "books" :> Capture "isbn" Text :> Get Book
-- > -- >
-- > myApi :: Proxy MyApi -- > myApi :: Proxy MyApi
-- > myApi = Proxy -- > myApi = Proxy