1 files changed, 4 insertions, 0 deletions

diff --git a/lib/zipper.mli b/lib/zipper.mli
index c3c79a6..beeb181 100644
--- a/lib/zipper.mli
+++ b/lib/zipper.mli
@@ -145,6 +145,10 @@ val split : 'a zipper -> 'a zipper * 'a zipper
 (** [split z] splits the zipper in two. [([3; 2; 1], [4; 5])] becomes
     [([3; 2; 1], []), ([], [4; 5])]. *)
 
+val join : 'a zipper -> 'a zipper -> 'a zipper
+(** [join z1 z2] creates a new zipper using [before z1] and [after z2].
+    [([3; 2; 1], []) ([4; 2], [4; 5])] becomes [([3; 2; 1], [4; 5])]. *)
+
 (** {1 Consuming zippers} *)
 
 (** Since zippers are based on sequences, iterating over zippers