git.iko.soy/servant
on ea87e97 help sign in
aaeee88
swap
0 ahead, 1 behind
2 files changed+3−2
since splitsnapshots
unifiedsplit
changelog.d/1571−2 servant/src/Servant/API/UVerb.hs+3
changelog.d/1571−2
@@ -5,6 +5,4 @@ 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
108}
servant/src/Servant/API/UVerb.hs+3
@@ -53,6 +53,9 @@ 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+
5659class HasStatuses (as :: [*]) where
5760 type Statuses (as :: [*]) :: [Nat]
5861 statuses :: Proxy as -> [Status]