option monad, and some design changes

2021-12-19 08:08:10 +11:00
parent 1c94d51334
commit de837bbf3b
17 changed files with 82 additions and 33 deletions
--- a/lib/tree.ml
+++ b/lib/tree.ml
@@ -1,5 +1,5 @@
 open FromStdlib
-open Types
+open Exposed

 let combine (tr1 : 'a tree) (tr2 : 'a tree) (topBranch : 'a) : 'a tree =
    Branch (topBranch, tr1 :: tr2 :: [])