diff options
| -rw-r--r-- | README (renamed from README.md) | 0 | ||||
| -rw-r--r-- | lib/zipper.ml | 22 | ||||
| -rw-r--r-- | test/dune | 2 | ||||
| -rw-r--r-- | test/test_stitch.ml (renamed from test/test_apbox.ml) | 0 |
4 files changed, 1 insertions, 23 deletions
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 @@ -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 |