File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -202,7 +202,7 @@ compileUnionTag source parentname typename' fields = do
202
202
else toIndentedCodes (\ n -> [qq |'{n}'|]) tagNames " ,\n "
203
203
hashTuple = if null tagNames
204
204
then " self.__nirum_tag__"
205
- else [qq |tuple([ {attributes}] )|] :: T. Text
205
+ else [qq |( {attributes}, )|] :: T. Text
206
206
where
207
207
attributes :: T. Text
208
208
attributes = toIndentedCodes (\ n -> [qq |self.{n}|]) tagNames " , "
@@ -393,7 +393,7 @@ compileTypeDeclaration src TypeDeclaration { typename = typename'
393
393
toNamePair
394
394
[name | Field name _ _ <- toList fields]
395
395
" ,\n "
396
- hashTuple = [qq |tuple([ {attributes}] )|] :: T. Text
396
+ hashTuple = [qq |( {attributes}, )|] :: T. Text
397
397
where
398
398
attributes = toIndentedCodes (\ n -> [qq |self.{n}|]) fieldNames " ,"
399
399
insertStandardImport " typing"
You can’t perform that action at this time.
0 commit comments