Compare commits
2 commits
9ccd1c005b
...
26f16658cf
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
26f16658cf | ||
|
|
782341829c |
3 changed files with 13 additions and 1 deletions
2
Makefile
2
Makefile
|
|
@ -7,7 +7,7 @@ format:
|
||||||
ocp-indent --inplace src/*
|
ocp-indent --inplace src/*
|
||||||
|
|
||||||
edit:
|
edit:
|
||||||
code . -n
|
codium . -n
|
||||||
|
|
||||||
demo: build
|
demo: build
|
||||||
@echo "\n==== EXECUTING ====\n"
|
@echo "\n==== EXECUTING ====\n"
|
||||||
|
|
|
||||||
7
src/tools.ml
Normal file
7
src/tools.ml
Normal file
|
|
@ -0,0 +1,7 @@
|
||||||
|
(* Yes, we have to repeat open Graph. *)
|
||||||
|
open Graph
|
||||||
|
|
||||||
|
(* assert false is of type ∀α.α, so the type-checker is happy. *)
|
||||||
|
let clone_nodes gr = assert false
|
||||||
|
let gmap gr f = assert false
|
||||||
|
let add_arc gr f = assert false
|
||||||
5
src/tools.mli
Normal file
5
src/tools.mli
Normal file
|
|
@ -0,0 +1,5 @@
|
||||||
|
open Graph
|
||||||
|
|
||||||
|
val clone_nodes: 'a graph -> 'b graph
|
||||||
|
val gmap: 'a graph -> ('a -> 'b) -> 'b graph
|
||||||
|
val add_arc: int graph -> id -> id -> int -> int graph
|
||||||
Loading…
Reference in a new issue