From 804994b5e1391fe67b2e902f097f8750987cc5e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Abigail=20Magalh=C3=A3es?=
 <magalhaes.alcantara@pucpr.edu.br>
Date: Fri, 27 Mar 2020 18:17:49 -0300
Subject: [PATCH] am stupid

---
 lib/data/map.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/data/map.ml b/lib/data/map.ml
index 9aee8a70..ff37704c 100644
--- a/lib/data/map.ml
+++ b/lib/data/map.ml
@@ -87,7 +87,7 @@ let lookup k (M tree) =
       | Lt -> go l
       | Gt -> go r
   go tree
-let (.?[]) map key = lookup map key
+let (.?[]) map key = lookup key map
 
 (** Lookup a key on the map. If it is not present, raise an exception.
  *)