git.iko.soy/servant
on master help sign in
Fix mimeRender name change
47aeb20Julian K. Arni
example/greet.hs+1−1
compare with master
unifiedsplit
@@ -27,7 +27,7 @@ instance ToJSON Greet
27
27
28-- | We can also implement 'MimeRender' for additional formats like 'PlainText'.
28-- | We can also implement 'MimeRender' for additional formats like 'PlainText'.
29instance MimeRender PlainText Greet where
29instance MimeRender PlainText Greet where
30− toByteString Proxy (Greet s) = "\"" <> cs s <> "\""
30+ mimeRender Proxy (Greet s) = "\"" <> cs s <> "\""
31
31
32-- We add some useful annotations to our captures,
32-- We add some useful annotations to our captures,
33-- query parameters and request body to make the docs
33-- query parameters and request body to make the docs
test/Servant/DocsSpec.hs+1−1
@@ -56,7 +56,7 @@ instance ToSample Int where
56 toSample = Just 17
56 toSample = Just 17
57
57
58instance MimeRender PlainText Int where
58instance MimeRender PlainText Int where
59− toByteString _ = cs . show
59+ mimeRender _ = cs . show
60
60
61
61
62type TestApi1 = Get '[JSON, PlainText] Int
62type TestApi1 = Get '[JSON, PlainText] Int