We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 979fb5a + ee6efdc commit 824d191Copy full SHA for 824d191
1 file changed
src/GitHub/Data/Request.hs
@@ -61,6 +61,8 @@ data CommandMethod a where
61
Post :: CommandMethod a
62
Patch :: CommandMethod a
63
Put :: CommandMethod a
64
+
65
+ -- | Put requests, where we don't care about response's body
66
Put' :: CommandMethod ()
67
Delete :: CommandMethod ()
68
deriving (Typeable)
@@ -146,6 +148,8 @@ data Request (k :: RW) a where
146
148
SimpleQuery :: FromJSON a => SimpleRequest k a -> Request k a
147
149
StatusQuery :: StatusMap a -> SimpleRequest k () -> Request k a
150
HeaderQuery :: FromJSON a => Types.RequestHeaders -> SimpleRequest k a -> Request k a
151
152
+ -- | Redirect query is /some/ query where we expect status 302 response with @Location@ header.
153
RedirectQuery :: SimpleRequest k () -> Request k URI
154
155
0 commit comments