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

Make MINIMAL contentType | contentTypes

Browse source
This commit is contained in:
Oleg Grenrus 2016-10-11 08:11:48 +03:00
parent bf66b2b1ff
commit 148bb15635
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
servant/src/Servant/API/ContentTypes.hs
View file

@ -120,10 +120,13 @@ data OctetStream deriving Typeable
-- --
class Accept ctype where class Accept ctype where
contentType :: Proxy ctype -> M.MediaType contentType :: Proxy ctype -> M.MediaType
contentType = NE.head . contentTypes
contentTypes :: Proxy ctype -> NE.NonEmpty M.MediaType contentTypes :: Proxy ctype -> NE.NonEmpty M.MediaType
contentTypes = (NE.:| []) . contentType contentTypes = (NE.:| []) . contentType
{-# MINIMAL contentType | contentTypes #-}
-- | @application/json@ -- | @application/json@
instance Accept JSON where instance Accept JSON where
contentType _ = "application" M.// "json" contentType _ = "application" M.// "json"