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

Fix mimeRender name change

Browse source
This commit is contained in:
Julian K. Arni 2015-04-19 14:51:34 +02:00
parent b23b334128
commit 47aeb20c4b
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/greet.hs
View file

@ -27,7 +27,7 @@ instance ToJSON Greet
-- | We can also implement 'MimeRender' for additional formats like 'PlainText'. -- | We can also implement 'MimeRender' for additional formats like 'PlainText'.
instance MimeRender PlainText Greet where instance MimeRender PlainText Greet where
toByteString Proxy (Greet s) = "\"" <> cs s <> "\"" mimeRender Proxy (Greet s) = "\"" <> cs s <> "\""
-- We add some useful annotations to our captures, -- We add some useful annotations to our captures,
-- query parameters and request body to make the docs -- query parameters and request body to make the docs

2
test/Servant/DocsSpec.hs
View file

@ -56,7 +56,7 @@ instance ToSample Int where
toSample = Just 17 toSample = Just 17
instance MimeRender PlainText Int where instance MimeRender PlainText Int where
toByteString _ = cs . show mimeRender _ = cs . show
type TestApi1 = Get '[JSON, PlainText] Int type TestApi1 = Get '[JSON, PlainText] Int