Initial commit x2

4 files changed, 1 insertions, 23 deletions

diff --git a/README.md b/README
index 7af7768..7af7768 100644
--- a/README.md
+++ b/README
diff --git a/lib/zipper.ml b/lib/zipper.ml
deleted file mode 100644
index 37e14de..0000000
--- a/lib/zipper.ml
+++ /dev/null
@@ -1,22 +0,0 @@
-type zipper =
-  { above : string list
-  ; selected : string
-  ; below : string list
-  }
-
-let up (zipper : zipper) =
-  match zipper.above with
-  | [] -> zipper
-  | a :: rest -> { above = rest; selected = a; below = zipper.selected :: zipper.below }
-
-
-let down (zipper : zipper) =
-  match zipper.below with
-  | [] -> zipper
-  | a :: rest -> { below = rest; selected = a; above = zipper.selected :: zipper.above }
-
-
-let selected zipper = zipper.selected
-
-let to_array zipper =
-  List.concat [ zipper.above; [ zipper.selected ]; zipper.below ] |> Array.of_list
diff --git a/test/dune b/test/dune
index d392dd2..adbe4c1 100644
--- a/test/dune
+++ b/test/dune
@@ -1,2 +1,2 @@
 (test
- (name test_apbox))
+ (name test_stitch))
diff --git a/test/test_apbox.ml b/test/test_stitch.ml
index e69de29..e69de29 100644
--- a/test/test_apbox.ml
+++ b/test/test_stitch.ml