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

Fix doctests

Browse source
This commit is contained in:
Timo von Holtz 2015-03-18 15:30:59 +11:00
parent e9797732b1
commit 6738a38818
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Servant/API/ContentTypes.hs
View file

@ -190,7 +190,7 @@ instance ( AllMimeRender ctyps a, IsNonEmpty ctyps
-- --
-- >>> :{ -- >>> :{
--instance Read a => MimeUnrender MyContentType a where --instance Read a => MimeUnrender MyContentType a where
-- fromByteString _ bs = case BSC.take 12 bs of -- fromByteString _ _ bs = case BSC.take 12 bs of
-- "MyContentType" -> return . read . BSC.unpack $ BSC.drop 12 bs -- "MyContentType" -> return . read . BSC.unpack $ BSC.drop 12 bs
-- _ -> Left "didn't start with the magic incantation" -- _ -> Left "didn't start with the magic incantation"
-- :} -- :}