diff options
Diffstat (limited to 'lib/syntax/tree.ml')
| -rw-r--r-- | lib/syntax/tree.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/syntax/tree.ml b/lib/syntax/tree.ml index 21238a6..6f6e7f2 100644 --- a/lib/syntax/tree.ml +++ b/lib/syntax/tree.ml @@ -4,6 +4,10 @@ let identifier = "tree" let description = "Build the AST" let active = ref true +type context = unit + +let initialize = Fun.id + module Ast = struct type 'a literal = 'a T.literal = Text of string | Expression of 'a [@@deriving eq, show] @@ -120,5 +124,7 @@ module Location = struct type t = S.pos * S.pos Ast.statement list let v _ = [] - let location : S.pos -> instruction list -> t = fun pos block -> (pos, block) + + let location : unit -> S.pos -> instruction list -> t = + fun () pos block -> (pos, block) end |