am stupid

amuletml · Mar 27, 2020 · 804994b · 804994b
1 parent c00a192
commit 804994b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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.
  *)