digital-asset/daml
1
1
Fork 0
mirror of https://github.com/digital-asset/daml.git synced 2024-09-20 09:17:43 +03:00
Code Issues Projects Releases Wiki Activity

combine mostly-duplicate functions in TS codegen (#15096)

Browse Source 
CHANGELOG_BEGIN
CHANGELOG_END
This commit is contained in:
Stephen Compall 2022-09-26 15:56:08 -04:00 committed by GitHub
parent e222ee81d6
commit 5c66d53aa8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
language-support/ts/codegen/src/TsCodeGenMain.hs
View File

@ -523,7 +523,13 @@ renderInterfaceDef InterfaceDef{ifName, ifChoices, ifModule,
ifName
ifaceDefTempl :: T.Text -> Maybe T.Text -> [ChoiceDef] -> [T.Text]
ifaceDefTempl name mbKeyTy choices =
ifaceDefTempl = ifaceDefCtTy "Template"
ifaceDefIface :: T.Text -> Maybe T.Text -> [ChoiceDef] -> [T.Text]
ifaceDefIface = ifaceDefCtTy "InterfaceCompanion"
ifaceDefCtTy :: T.Text -> T.Text -> Maybe T.Text -> [ChoiceDef] -> [T.Text]
ifaceDefCtTy container name mbKeyTy choices =
concat
[ ["export declare interface " <> name <> "Interface {"]
, [ " " <> chcName' <> ": damlTypes.Choice<" <>
@ -537,24 +543,8 @@ ifaceDefTempl name mbKeyTy choices =
where
mbSubst = Nothing
keyTy = fromMaybe "undefined" mbKeyTy
choiceFrom = "damlTypes.ChoiceFrom<damlTypes.Template<" <> name <> ", " <> keyTy <> ">>"
ifaceDefIface :: T.Text -> Maybe T.Text -> [ChoiceDef] -> [T.Text]
ifaceDefIface name mbKeyTy choices =
concat
[ ["export declare interface " <> name <> "Interface " <> "{"]
, [ " " <> chcName' <> ": damlTypes.Choice<" <>
name <> ", " <>
tsTypeRef (genType chcArgTy mbSubst) <> ", " <>
tsTypeRef (genType chcRetTy mbSubst) <> ", " <>
keyTy <> "> & " <> choiceFrom <> ";"
| ChoiceDef{..} <- choices ]
, [ "}" ]
]
where
mbSubst = Nothing
keyTy = fromMaybe "undefined" mbKeyTy
choiceFrom = "damlTypes.ChoiceFrom<damlTypes.InterfaceCompanion<" <> name <> ", " <> keyTy <> ">>"
choiceFrom = "damlTypes.ChoiceFrom<damlTypes." <> container
<> "<" <> name <> ", " <> keyTy <> ">>"
data ChoiceDef = ChoiceDef
{ chcName' :: T.Text