@@ -71,7 +71,8 @@ optimize cycle (A.At region expression) =
71 pure (Opt.Float float)
71 pure (Opt.Float float)
73 Can.List entries ->
73 Can.List entries ->
74+ Names.registerKernel N.list Opt.List
74− Opt.List <$> traverse (optimize cycle) entries
75+ <*> traverse (optimize cycle) entries
76 Can.Negate expr ->
77 Can.Negate expr ->
77 do func <- Names.registerGlobal ModuleName.basics N.negate
78 do func <- Names.registerGlobal ModuleName.basics N.negate