Remove extraneous HasStatus instance in UVerb (#1652)

tchoutri · web-flow · commit aaeee88c217c · 2023-02-26T20:10:34.000+01:00
diff --git a/changelog.d/1571 b/changelog.d/1571
@@ -5,4 +5,6 @@ description: {
 UVerb endpoints are now supported by servant-auth-server and can be used under the
 Auth combinator when writing servers. It is still unsupported by
 servant-auth-client.
+
+This PR also brings Headers support in UVerb responses
 }
diff --git a/servant/src/Servant/API/UVerb.hs b/servant/src/Servant/API/UVerb.hs
@@ -53,9 +53,6 @@ statusOf = const (statusVal (Proxy :: Proxy (StatusOf a)))
 instance HasStatus NoContent where
   type StatusOf NoContent = 204
 
-instance HasStatus a => HasStatus (Headers hs a) where
-  type StatusOf (Headers hs a) = StatusOf a
-
 class HasStatuses (as :: [*]) where
   type Statuses (as :: [*]) :: [Nat]
   statuses :: Proxy as -> [Status]

Original file line number	Diff line number	Diff line change
`@@ -5,4 +5,6 @@ description: {`
`5`	`5`	`UVerb endpoints are now supported by servant-auth-server and can be used under the`
`6`	`6`	`Auth combinator when writing servers. It is still unsupported by`
`7`	`7`	`servant-auth-client.`
	`8`	`+`
	`9`	`+This PR also brings Headers support in UVerb responses`
`8`	`10`	`}`