git.iko.soy/typeable/servant
on master help sign in
Small tweaks for servant-server
commitebc266022cbe1b23846bb58824e03e910134eb19 authorJulian K. Arni <jkarni@gmail.com> dateThu 19 Feb 2015, 19:18 (12 years ago) parent5e4297a
2 files changed+3−2
src/Servant/API.hs+2−1 src/Servant/API/ContentTypes.hs+1−1
src/Servant/API.hs+2−1
@@ -47,7 +47,8 @@ module Servant.API (
4747import Servant.API.Alternative ( (:<|>)(..) )
4848import Servant.API.Capture ( Capture )
4949import Servant.API.ContentTypes ( HTML, XML, JSON, JavaScript, CSS
50− , PlainText, OctetStream )
50+ , PlainText, OctetStream, MimeRender(..)
51+ , MimeUnrender(..))
5152import Servant.API.Delete ( Delete )
5253import Servant.API.Get ( Get )
5354import Servant.API.Header ( Header )
src/Servant/API/ContentTypes.hs+1−1
@@ -110,7 +110,7 @@ instance ( AllMimeRender ctyps a, IsNonEmpty ctyps
110110class Accept ctype => MimeUnrender ctype a where
111111 fromByteString :: Proxy ctype -> ByteString -> Either String a
112112
113−class AllCTUnrender list a where
113+class (IsNonEmpty list) => AllCTUnrender list a where
114114 handleCTypeH :: Proxy list
115115 -> ByteString -- Content-Type header
116116 -> ByteString -- Request body