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/*
|
||||
|
||||
edit:
|
||||
code . -n
|
||||
codium . -n
|
||||
|
||||
demo: build
|
||||
@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