Make sure that list literals demand the list kernel
commit5a915f5dbb733ccc4e0f5f37801eb87362d5fc54
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateWed 25 Apr 2018, 17:21 (9 years ago)
parent37609ff
compiler/src/Optimize/Expression.hs+2−1
@@ -71,7 +71,8 @@ optimize cycle (A.At region expression) =
7171 pure (Opt.Float float)
7272
7373 Can.List entries ->
74− Opt.List <$> traverse (optimize cycle) entries
74+ Names.registerKernel N.list Opt.List
75+ <*> traverse (optimize cycle) entries
7576
7677 Can.Negate expr ->
7778 do func <- Names.registerGlobal ModuleName.basics N.negate