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

Put record construction in a less odd place (#30)

Browse Source
This commit is contained in:
Patrick Stevens
2025-04-13 19:02:33 +01:00
committed by GitHub
parent f691337adb
commit 75b063ba39
9 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Plugins/Json/WoofWare.Whippet.Plugin.Json/JsonParseGenerator.fs
View File

@@ -486,7 +486,7 @@ module JsonParseGenerator =
let finalConstruction =
fields
|> List.mapi (fun i fieldData -> SynLongIdent.createI fieldData.Ident, SynExpr.createIdent $"arg_%i{i}")
|> AstHelper.instantiateRecord
|> SynExpr.createRecord None
(finalConstruction, assignments)
||> List.fold (fun final assignment -> SynExpr.createLet [ assignment ] final)