Remove extraneous HasStatus instance in UVerb (#1652)

haskell-servant · Feb 26, 2023 · aaeee88 · aaeee88
1 parent ea87e97
commit aaeee88
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
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]