diff options
Diffstat (limited to 'lib/syntax/dead_end.ml')
| -rw-r--r-- | lib/syntax/dead_end.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/syntax/dead_end.ml b/lib/syntax/dead_end.ml index 832a97a..ddf7edb 100644 --- a/lib/syntax/dead_end.ml +++ b/lib/syntax/dead_end.ml @@ -4,6 +4,10 @@ let identifier = "dead_end" let description = "Check for dead end in the code" let active = ref false +type context = unit + +let initialize = Fun.id + module Expression = struct type t = unit @@ -148,8 +152,8 @@ module Location = struct let v = Fun.id - let location : S.pos -> instruction list -> t = - fun _pos instructions -> + let location : unit -> S.pos -> instruction list -> t = + fun () _pos instructions -> List.fold_left instructions ~init:[] ~f:(fun report t -> match (t.Instruction.is_gt, t.Instruction.pos) with | false, Some (cause, value) -> |