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

Allow stream return type (#39)

Browse Source
This commit is contained in:
Patrick Stevens
2023-12-29 18:36:10 +00:00
committed by GitHub
parent dc0f0803b3
commit 9e9744d37b
6 changed files with 155 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
WoofWare.Myriad.Plugins/AstHelper.fs
View File

@@ -116,6 +116,16 @@ module internal SynTypePatterns =
| _ -> None
| _ -> None
let (|Stream|_|) (fieldType : SynType) : unit option =
match fieldType with
| SynType.LongIdent ident ->
match ident.LongIdent |> List.map (fun i -> i.idText) with
| [ "System" ; "IO" ; "Stream" ]
| [ "IO" ; "Stream" ]
| [ "Stream" ] -> Some ()
| _ -> None
| _ -> None
let (|NumberType|_|) (fieldType : SynType) =
match fieldType with
| SynType.LongIdent ident ->

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

@@ -331,7 +331,8 @@ module internal HttpClientGenerator =
let returnExpr =
match info.ReturnType with
| String -> SynExpr.CreateIdentString "node"
| String
| Stream -> SynExpr.CreateIdentString "node"
| _ ->
JsonParseGenerator.parseNode
None
@@ -412,6 +413,19 @@ module internal HttpClientGenerator =
)
)
)
| Stream ->
yield
LetBang (
"node",
SynExpr.awaitTask (
SynExpr.CreateApp (
SynExpr.CreateLongIdent (
SynLongIdent.Create [ "response" ; "Content" ; "ReadAsStreamAsync" ]
),
SynExpr.CreateIdentString "ct"
)
)
)
| _ ->
yield
LetBang (