add search list to app type

2024-11-14 08:12:27 +00:00
parent 91663a6cae
commit cae9f19787
5 changed files with 37 additions and 10 deletions
--- a/fcore/search-list.sml
+++ b/fcore/search-list.sml
@@ -7,7 +7,7 @@ sig
  val mapFromNum: int * int * t -> t
 end

-structure SearchList =
+structure SearchList :> SEARCH_LIST =
 struct
  type t = {left: int vector list, right: int vector list}