msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

fix: tag nested data names

Browse Source
This commit is contained in:
crumbtoo
2024-02-13 10:42:17 -07:00
parent 7b271e5265
commit de16bf12df
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Core2Core.hs
View File

@@ -70,7 +70,7 @@ tagData p = let ?dt = p ^. programDataTags
go x = embed x go x = embed x
tagAlts :: (?dt :: HashMap Name (Tag, Int)) => Alter' -> Alter' tagAlts :: (?dt :: HashMap Name (Tag, Int)) => Alter' -> Alter'
tagAlts (Alter (AltData c) bs e) = Alter (AltTag tag) bs e tagAlts (Alter (AltData c) bs e) = Alter (AltTag tag) bs (cata go e)
where tag = case ?dt ^. at c of where tag = case ?dt ^. at c of
Just (t,_) -> t Just (t,_) -> t
-- TODO: errorful -- TODO: errorful