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

urgh

Browse Source
This commit is contained in:
Smaug123
2023-12-29 23:23:00 +00:00
parent a9024584a5
commit 63a45f14d8
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -96,6 +96,13 @@ module internal SynTypePatterns =
| SynType.Array (1, innerType, _) -> Some innerType | SynType.Array (1, innerType, _) -> Some innerType
| _ -> None | _ -> None
let (|RestEaseResponseType|_|) (fieldType : SynType) =
match fieldType with
| SynType.App (SynType.LongIdent ident, _, [ innerType ], _, _, _, _) when AstHelper.isArrayIdent ident ->
Some innerType
| SynType.Array (1, innerType, _) -> Some innerType
| _ -> None
/// Returns the string name of the type. /// Returns the string name of the type.
let (|PrimitiveType|_|) (fieldType : SynType) = let (|PrimitiveType|_|) (fieldType : SynType) =
match fieldType with match fieldType with