Commit c145fadb authored by Pavel Zakopaylo's avatar Pavel Zakopaylo

Fixed mystery lambda

parent 3ee7b541
Pipeline #491 failed with stages
......@@ -81,8 +81,7 @@ codegenType tycon = do
-- | Generate the static reference code for the entries of enumerated data
-- types.
codegenEnumerations :: TyCon -> Mu ()
-- TODO: The lambda was previously a function called "go".
codegenEnumerations _tycon = mapM_ (\x -> return ()) (tyConDataCons _tycon)
codegenEnumerations _tycon = mapM_ codegenDataCon (tyConDataCons _tycon)
-- | Generate the static closures for data constructor fields.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment