From 824f2987d47e87d58ee2a4a96d7be417aad6aeab Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 31 Jan 2018 13:20:20 +0100 Subject: API refactoring : made the GADT abstract, provide contructor for each case, and deported the expression with evaluation with module functors --- src/expressions/sym_ref.ml | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100755 src/expressions/sym_ref.ml (limited to 'src/expressions/sym_ref.ml') diff --git a/src/expressions/sym_ref.ml b/src/expressions/sym_ref.ml new file mode 100755 index 0000000..aba8053 --- /dev/null +++ b/src/expressions/sym_ref.ml @@ -0,0 +1,12 @@ +module type SYM_REF = sig + + type 'a t + + type 'a obs + + val cell : Cell.t -> 'a t + + val range : Cell.t -> Cell.t -> 'a t + + val observe : 'a t -> 'a obs +end -- cgit v1.2.3