git.iko.soy/typeable/servant
on master help sign in
Small tweaks for servant-server
ebc2660Julian K. Arni
src/Servant/API.hs+2−1
@@ -47,7 +47,8 @@ module Servant.API (
47import Servant.API.Alternative ( (:<|>)(..) )
47import Servant.API.Alternative ( (:<|>)(..) )
48import Servant.API.Capture ( Capture )
48import Servant.API.Capture ( Capture )
49import Servant.API.ContentTypes ( HTML, XML, JSON, JavaScript, CSS
49import Servant.API.ContentTypes ( HTML, XML, JSON, JavaScript, CSS
50− , PlainText, OctetStream )
50+ , PlainText, OctetStream, MimeRender(..)
51+ , MimeUnrender(..))
51import Servant.API.Delete ( Delete )
52import Servant.API.Delete ( Delete )
52import Servant.API.Get ( Get )
53import Servant.API.Get ( Get )
53import Servant.API.Header ( Header )
54import Servant.API.Header ( Header )
src/Servant/API/ContentTypes.hs+1−1
@@ -110,7 +110,7 @@ instance ( AllMimeRender ctyps a, IsNonEmpty ctyps
110class Accept ctype => MimeUnrender ctype a where
110class Accept ctype => MimeUnrender ctype a where
111 fromByteString :: Proxy ctype -> ByteString -> Either String a
111 fromByteString :: Proxy ctype -> ByteString -> Either String a
112
112
113−class AllCTUnrender list a where
113+class (IsNonEmpty list) => AllCTUnrender list a where
114 handleCTypeH :: Proxy list
114 handleCTypeH :: Proxy list
115 -> ByteString -- Content-Type header
115 -> ByteString -- Content-Type header
116 -> ByteString -- Request body
116 -> ByteString -- Request body