git.iko.soy/servant
on master help sign in
Fix example `MimeRender` instance
d81e15bErlend Hamberg
servant/src/Servant/API/ContentTypes.hs+1−1
compare with master
unifiedsplit
@@ -154,7 +154,7 @@ newtype AcceptHeader = AcceptHeader BS.ByteString
154-- > instance Accept MyContentType where
154-- > instance Accept MyContentType where
155-- > contentType _ = "example" // "prs.me.mine" /: ("charset", "utf-8")
155-- > contentType _ = "example" // "prs.me.mine" /: ("charset", "utf-8")
156-- >
156-- >
157−-- > instance Show a => MimeRender MyContentType where
157+-- > instance Show a => MimeRender MyContentType a where
158-- > mimeRender _ val = pack ("This is MINE! " ++ show val)
158-- > mimeRender _ val = pack ("This is MINE! " ++ show val)
159-- >
159-- >
160-- > type MyAPI = "path" :> Get '[MyContentType] Int
160-- > type MyAPI = "path" :> Get '[MyContentType] Int