Remove extraneous HasStatus instance in UVerb (#1652)
commitaaeee88c217cf6b90c0ac1e2cf2c0afd705767ed
authorThéophile Choutri <theophile@choutri.eu>
dateSun 26 Feb 2023, 20:10 (4 years ago)
parentea87e97
changelog.d/1571+2
@@ -5,4 +5,6 @@ description: {
55UVerb endpoints are now supported by servant-auth-server and can be used under the
66Auth combinator when writing servers. It is still unsupported by
77servant-auth-client.
8+
9+This PR also brings Headers support in UVerb responses
810}
servant/src/Servant/API/UVerb.hs−3
@@ -53,9 +53,6 @@ statusOf = const (statusVal (Proxy :: Proxy (StatusOf a)))
5353instance HasStatus NoContent where
5454 type StatusOf NoContent = 204
5555
56−instance HasStatus a => HasStatus (Headers hs a) where
57− type StatusOf (Headers hs a) = StatusOf a
58−
5956class HasStatuses (as :: [*]) where
6057 type Statuses (as :: [*]) :: [Nat]
6158 statuses :: Proxy as -> [Status]