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

Cope with unit type in JSON (#262)

Browse Source
This commit is contained in:
Patrick Stevens
2024-09-15 15:37:50 +01:00
committed by GitHub
parent e22525c200
commit 9a3ebbf28f
7 changed files with 29 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
WoofWare.Myriad.Plugins/SynExpr/Ident.fs
View File

@@ -16,6 +16,7 @@ module internal Ident =
let createSanitisedParamName (s : string) =
match s with
| "type" -> create "type'"
| "private" -> create "private'"
| _ ->
let result = StringBuilder ()

11
WoofWare.Myriad.Plugins/SynExpr/SynType.fs
View File

@@ -193,6 +193,17 @@ module internal SynTypePatterns =
| _ -> None
| _ -> None
let (|Unit|_|) (fieldType : SynType) : unit option =
match fieldType with
| SynType.LongIdent (SynLongIdent.SynLongIdent (ident, _, _)) ->
match ident |> List.map (fun i -> i.idText.ToLowerInvariant ()) with
| [ "microsoft" ; "fsharp" ; "core" ; "unit" ]
| [ "fsharp" ; "core" ; "unit" ]
| [ "core" ; "unit" ]
| [ "unit" ] -> Some ()
| _ -> None
| _ -> None
let (|DateOnly|_|) (fieldType : SynType) =
match fieldType with
| SynType.LongIdent (SynLongIdent.SynLongIdent (ident, _, _)) ->