Make MINIMAL contentType | contentTypes

2016-10-11 08:11:48 +03:00 · 2016-10-11 08:11:48 +03:00 · 148bb15635
commit 148bb15635
parent bf66b2b1ff
1 changed files with 3 additions and 0 deletions
--- a/servant/src/Servant/API/ContentTypes.hs
+++ b/servant/src/Servant/API/ContentTypes.hs
@ -120,10 +120,13 @@ data OctetStream deriving Typeable
 --
 class Accept ctype where
    contentType   :: Proxy ctype -> M.MediaType
+    contentType = NE.head . contentTypes

    contentTypes  :: Proxy ctype -> NE.NonEmpty M.MediaType
    contentTypes  =  (NE.:| []) . contentType

+    {-# MINIMAL contentType | contentTypes #-}
+
 -- | @application/json@
 instance Accept JSON where
    contentType _ = "application" M.// "json"