simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

style

Browse source
This commit is contained in:
Simon Cruanes 2014-11-04 18:00:04 +01:00
parent 6cc3510d0e
commit aa5af3b0f2
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
util/parser.ml
View file

@ -21,11 +21,12 @@ let of_input f =
raise (Syntax_error (-1))
end
| l ->
begin try begin match List.rev_map int_of_string l with
| 0 :: r -> Clause r
| _ -> raise (Syntax_error (-1))
end with
| Invalid_argument _ -> raise (Syntax_error (-1))
begin try
begin match List.rev_map int_of_string l with
| 0 :: r -> Clause r
| _ -> raise (Syntax_error (-1))
end
with Invalid_argument _ -> raise (Syntax_error (-1))
end
let parse_with todo file =