wasp-lang/wasp
1
1
Fork 0
mirror of https://github.com/wasp-lang/wasp.git synced 2024-09-11 15:26:19 +03:00
Code Issues Projects Releases Wiki Activity

fix

Browse Source
This commit is contained in:
Martin Sosic 2021-09-17 10:10:36 +02:00
parent 5c19d42ed1
commit 123765c494
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
waspc/src/Analyzer/Evaluator/TH.hs
View File

@ -225,7 +225,7 @@ genDictEntryTypesAndEvaluatorForRecord dataConstructorName fields =
where
go [] = pure (listE [], varE 'pure `appE` conE dataConstructorName)
go ((fieldName, fieldType) : restOfFields) = do
(restDictType, restEvaluator) <- genDictEntryTypesAndEvaluatorForRecord dataConstructorName restOfFields
(restDictType, restEvaluator) <- go restOfFields
let thisDictTypeE =
[|
($(nameToStringLiteralExpr fieldName), $(genDictEntryTypeFromHaskellType fieldType)) :