fix: tag nested data names

2024-02-13 10:42:17 -07:00
parent 7b271e5265
commit de16bf12df
1 changed files with 1 additions and 1 deletions
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -70,7 +70,7 @@ tagData p = let ?dt = p ^. programDataTags
    go x                = embed x

    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
                Just (t,_) -> t
                -- TODO: errorful