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

URI support (#59)

Browse Source
This commit is contained in:
Patrick Stevens
2024-01-03 19:47:59 +00:00
committed by GitHub
parent 7b3bd32323
commit ad2eeaaa4f
7 changed files with 100 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -423,6 +423,15 @@ module internal SynTypePatterns =
| _ -> None
| _ -> None
let (|Uri|_|) (fieldType : SynType) =
match fieldType with
| SynType.LongIdent (SynLongIdent.SynLongIdent (ident, _, _)) ->
match ident |> List.map (fun i -> i.idText) with
| [ "System" ; "Uri" ]
| [ "Uri" ] -> Some ()
| _ -> None
| _ -> None
let (|Task|_|) (fieldType : SynType) : SynType option =
match fieldType with
| SynType.App (SynType.LongIdent (SynLongIdent.SynLongIdent (ident, _, _)), _, args, _, _, _, _) ->

4
WoofWare.Myriad.Plugins/JsonParseGenerator.fs
View File

@@ -136,6 +136,10 @@ module internal JsonParseGenerator =
|> SynExpr.pipeThroughFunction (
SynExpr.CreateLongIdent (SynLongIdent.Create [ "System" ; "DateOnly" ; "Parse" ])
)
| Uri ->
node
|> asValueGetValue propertyName "string"
|> SynExpr.pipeThroughFunction (SynExpr.CreateLongIdent (SynLongIdent.Create [ "System" ; "Uri" ]))
| DateTime ->
node
|> asValueGetValue propertyName "string"