JSON serialization (#69)

This commit is contained in:
Patrick Stevens
2024-01-26 10:53:08 +00:00
committed by GitHub
parent 515ea306a2
commit aafee9495a
16 changed files with 1097 additions and 6 deletions

View File

@@ -393,7 +393,9 @@ module internal SynTypePatterns =
match fieldType with
| SynType.LongIdent ident ->
match ident.LongIdent with
| [ i ] -> [ "string" ; "float" ; "int" ; "bool" ] |> List.tryFind (fun s -> s = i.idText)
| [ i ] ->
[ "string" ; "float" ; "int" ; "bool" ; "char" ]
|> List.tryFind (fun s -> s = i.idText)
| _ -> None
| _ -> None