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

Allow serde of guids (#82)

Browse Source
This commit is contained in:
Patrick Stevens
2024-02-06 18:50:26 +00:00
committed by GitHub
parent e453a6f07c
commit 1215834795
6 changed files with 42 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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

3
WoofWare.Myriad.Plugins/JsonSerializeGenerator.fs
View File

@@ -43,8 +43,9 @@ module internal JsonSerializeGenerator =
| DateTime
| NumberType _
| PrimitiveType _
| Guid
| Uri ->
// JsonValue.Create<{type}>
// JsonValue.Create<type>
SynExpr.TypeApp (
SynExpr.CreateLongIdent (
SynLongIdent.Create [ "System" ; "Text" ; "Json" ; "Nodes" ; "JsonValue" ; "Create" ]