From 5070ded5b9d241ebb1b78348f1a32f5ff1b3e102 Mon Sep 17 00:00:00 2001
From: John David Pressman <jd@jdpressman.com>
Date: Fri, 11 Oct 2019 17:26:28 -0700
Subject: [PATCH] Add complex path traversal to map patch

---
 src/passes/2-simplify/pascaligo.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/passes/2-simplify/pascaligo.ml b/src/passes/2-simplify/pascaligo.ml
index b6d6f895d..337f91abd 100644
--- a/src/passes/2-simplify/pascaligo.ml
+++ b/src/passes/2-simplify/pascaligo.ml
@@ -824,7 +824,7 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
         | _ :: _ ->
           let assigns = List.fold_left
               (fun map (key, value) -> (e_map_add key value map))
-              (e_variable name)
+              (e_accessor ~loc (e_variable name) access_path)
               inj
           in e_assign ~loc name access_path assigns
       in return_statement @@ expr