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

Simplify SupportedTypes instances

Browse Source
This commit is contained in:
Thomas Sutton 2015-02-20 08:05:37 +11:00
parent 8087fae18b
commit 02c4adfd18
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Servant/Docs.hs
View File

@ -477,16 +477,10 @@ class SupportedTypes (list :: [*]) where
instance SupportedTypes '[] where
supportedTypes Proxy = []
instance (Accept ctype) => SupportedTypes '[ctype] where
supportedTypes Proxy = [ contentType (Proxy :: Proxy ctype) ]
instance (Accept ctype, Accept ctype', SupportedTypes rest)
=> SupportedTypes (ctype ': ctype' ': rest) where
instance (Accept ctype, SupportedTypes rest) => SupportedTypes (ctype ': rest)
where
supportedTypes Proxy =
[ contentType (Proxy :: Proxy ctype)
, contentType (Proxy :: Proxy ctype')
] <> supportedTypes (Proxy :: Proxy rest)
contentType (Proxy :: Proxy ctype) : supportedTypes (Proxy :: Proxy rest)
-- | The class that helps us automatically get documentation
-- for GET parameters.