patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-10-10 06:28:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

Implement AllowAnyStatusCode (#41)

Browse Source
This commit is contained in:
Patrick Stevens
2023-12-29 23:01:45 +00:00
committed by GitHub
parent 346d6e8321
commit 59be1f1806
5 changed files with 135 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
WoofWare.Myriad.Plugins/HttpClientGenerator.fs
View File

@@ -52,6 +52,7 @@ module internal HttpClientGenerator =
Arity : SynArgInfo list
Args : Parameter list
Identifier : Ident
EnsureSuccessHttpCode : bool
}
let httpMethodString (m : HttpMethod) : string =
@@ -116,6 +117,17 @@ module internal HttpClientGenerator =
| matchingAttrs ->
failwithf "Required exactly one recognised RestEase attribute on member, but got %i" matchingAttrs.Length
let shouldAllowAnyStatusCode (attrs : SynAttribute list) : bool =
attrs
|> List.exists (fun attr ->
match attr.TypeName.AsString with
| "AllowAnyStatusCode"
| "AllowAnyStatusCodeAttribute"
| "RestEase.AllowAnyStatusCode"
| "RestEase.AllowAnyStatusCodeAttribute" -> true
| _ -> false
)
let constructMember (info : MemberInfo) : SynMemberDefn =
let valInfo =
SynValInfo.SynValInfo (
@@ -392,14 +404,15 @@ module internal HttpClientGenerator =
)
)
)
yield
Let (
"response",
SynExpr.CreateApp (
SynExpr.CreateLongIdent (SynLongIdent.Create [ "response" ; "EnsureSuccessStatusCode" ]),
SynExpr.CreateConst SynConst.Unit
if info.EnsureSuccessHttpCode then
yield
Let (
"response",
SynExpr.CreateApp (
SynExpr.CreateLongIdent (SynLongIdent.Create [ "response" ; "EnsureSuccessStatusCode" ]),
SynExpr.CreateConst SynConst.Unit
)
)
)
match info.ReturnType with
| HttpResponseMessage -> yield Let ("node", SynExpr.CreateIdentString "response")
| String ->
@@ -617,6 +630,8 @@ module internal HttpClientGenerator =
let httpMethod, url = extractHttpInformation attrs
let shouldEnsureSuccess = not (shouldAllowAnyStatusCode attrs)
{
HttpMethod = httpMethod
UrlTemplate = url
@@ -624,6 +639,7 @@ module internal HttpClientGenerator =
Arity = arity
Args = args
Identifier = ident
EnsureSuccessHttpCode = shouldEnsureSuccess
}
| _ -> failwithf "Unrecognised member definition: %+A" defn
)