@@ -87,10 +87,9 @@ expression (A region expr) =
8787 do fields' <- forM fields $ \(f,e) -> do
8888 (,) f <$> expression e
8989 let fieldMap = List.foldl' combine Map.empty fields'
90− return $ ObjectLit () $ (PropId () (var "_"), hidden fieldMap) : visible fieldMap
90+ return $ ObjectLit () $ (prop "_", hidden fieldMap) : visible fieldMap
9191 where
9292 combine r (k,v) = Map.insertWith (++) k [v] r
93− prop = PropId () . var
9493 hidden fs = ObjectLit () . map (prop *** ArrayLit ()) .
9594 Map.toList . Map.filter (not . null) $ Map.map tail fs
9695 visible fs = map (first prop) . Map.toList $ Map.map head fs
@@ -311,7 +310,7 @@ generate unsafeModule =
311310 jsExports = assign ("_elm" : names modul ++ ["values"]) (ObjectLit () exs)
312311 where
313312 exs = map entry . filter (not . Help.isOp) $ "_op" : exports modul
314− entry x = (PropId () (var x), ref x)
313+ entry x = (prop x, ref x)
315314
316315 assign path expr =
317316 case path of