@@ -73,30 +73,30 @@ expression (A region expr) =
7373
7474 Access e field ->
7575 do e' <- expression e
76− return $ DotRef () e' (var (varName field))
76+ return $ DotRef () e' (var (Var.varName field))
7777
7878 Remove e field ->
7979 do e' <- expression e
80− return $ _Utils "remove" `call` [ string (varName field), e' ]
80+ return $ _Utils "remove" `call` [ string (Var.varName field), e' ]
8181
8282 Insert e field value ->
8383 do value' <- expression value
8484 e' <- expression e
85− return $ _Utils "insert" `call` [ string (varName field), value', e' ]
85+ return $ _Utils "insert" `call` [ string (Var.varName field), value', e' ]
8686
8787 Modify e fields ->
8888 do e' <- expression e
8989 fields' <-
9090 forM fields $ \(field, value) ->
9191 do value' <- expression value
92− return $ ArrayLit () [ string (varName field), value' ]
92+ return $ ArrayLit () [ string (Var.varName field), value' ]
9393
9494 return $ _Utils "replace" `call` [ArrayLit () fields', e']
9595
9696 Record fields ->
9797 do fields' <-
9898 forM fields $ \(field, e) ->
99− (,) (varName field) <$> expression e
99+ (,) (Var.varName field) <$> expression e
100100
101101 let fieldMap =
102102 List.foldl' combine Map.empty fields'