The unpac monorepo manager self-hosting as a monorepo using unpac
fix test file
+7
-2
+7
-2
tests/test_149.ml
+7
-2
tests/test_149.ml
···
1
1
2
2
(* Issue #149 *)
3
3
4
-
module G = Graph.Persistent.Digraph.Concrete(String)
4
+
module G = Graph.Persistent.Digraph.Concrete(
5
+
struct
6
+
type t = string
7
+
let compare = compare
8
+
let hash = Hashtbl.hash
9
+
let equal = (=)
10
+
end)
5
11
6
12
let g0 = G.empty
7
13
let g1 = G.add_edge g0 "a" "b"
···
12
18
13
19
let l = Topo.fold (fun v l -> v :: l) g []
14
20
let () = assert (l = ["b"; "c"; "a"])
15
-