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

Accept empty Path attr (#85)

Browse Source
This commit is contained in:
Patrick Stevens
2024-02-06 20:49:51 +00:00
committed by GitHub
parent a0fb7ee43a
commit 4e18e8b1bf
3 changed files with 21 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,10 +20,15 @@ module internal HttpClientGenerator =
open Fantomas.FCS.Text.Range
open Myriad.Core.Ast
[<RequireQualifiedAccess>]
type PathSpec =
| Verbatim of string
| MatchArgName
type HttpAttribute =
// TODO: Format parameter to these attrs
| Query of string option
| Path of string
| Path of PathSpec
| Body
type Parameter =
@@ -230,18 +235,23 @@ module internal HttpClientGenerator =
(template, arg.Attributes)
||> List.fold (fun template attr ->
match attr with
| HttpAttribute.Path s ->
| HttpAttribute.Path spec ->
let varName =
match arg.Id with
| None -> failwith "TODO: anonymous args"
| Some id -> id
let substituteId =
match spec with
| PathSpec.Verbatim s -> s
| PathSpec.MatchArgName -> varName.idText
template
|> SynExpr.callMethodArg
"Replace"
(SynExpr.CreateParenedTuple
[
SynExpr.CreateConstString ("{" + s + "}")
SynExpr.CreateConstString ("{" + substituteId + "}")
SynExpr.callMethod "ToString" (SynExpr.CreateIdent varName)
|> SynExpr.pipeThroughFunction (
SynExpr.CreateLongIdent (
@@ -710,7 +720,9 @@ module internal HttpClientGenerator =
| "Path"
| "PathAttribute" ->
match attr.ArgExpr with
| SynExpr.Const (SynConst.String (s, SynStringKind.Regular, _), _) -> Some (HttpAttribute.Path s)
| SynExpr.Const (SynConst.String (s, SynStringKind.Regular, _), _) ->
Some (HttpAttribute.Path (PathSpec.Verbatim s))
| SynExpr.Const (SynConst.Unit, _) -> Some (HttpAttribute.Path PathSpec.MatchArgName)
| SynExpr.Const (a, _) -> failwith $"unrecognised constant arg to the Path attribute: %+A{a}"
| _ -> None
| "Body"