From 5ae2c0f1df5ffb8138fe9b23884fee57c907bd5e Mon Sep 17 00:00:00 2001 From: "Michal J. Gajda" Date: Sun, 26 Feb 2023 18:52:57 +0100 Subject: [PATCH] Fix duplicate instance after PR !1551 --- servant/src/Servant/API/UVerb.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/servant/src/Servant/API/UVerb.hs b/servant/src/Servant/API/UVerb.hs index 9b412b927..0ccbd5cde 100644 --- a/servant/src/Servant/API/UVerb.hs +++ b/servant/src/Servant/API/UVerb.hs @@ -90,9 +90,6 @@ newtype WithStatus (k :: Nat) a = WithStatus a instance KnownStatus n => HasStatus (WithStatus n a) where type StatusOf (WithStatus n a) = n -instance HasStatus a => HasStatus (Headers ls a) where - type StatusOf (Headers ls a) = StatusOf a - -- | A variant of 'Verb' that can have any of a number of response values and status codes. -- -- FUTUREWORK: it would be nice to make 'Verb' a special case of 'UVerb', and only write