diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/zipper.ml | 22 |
1 files changed, 0 insertions, 22 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 |