@@ -170,7 +170,7 @@ class (AllMime list) => AllCTRender (list :: [*]) a where
170170 handleAcceptH :: Proxy list -> AcceptHeader -> a -> Maybe (ByteString, ByteString)
171171
172172instance OVERLAPPABLE_
173− (AllMimeRender (ct ': cts) a) => AllCTRender (ct ': cts) a where
173+ (Accept ct, AllMime cts, AllMimeRender (ct ': cts) a) => AllCTRender (ct ': cts) a where
174174 handleAcceptH _ (AcceptHeader accept) val = M.mapAcceptMedia lkup accept
175175 where pctyps = Proxy :: Proxy (ct ': cts)
176176 amrs = allMimeRender pctyps val