simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-07 11:45:41 -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)) raise (Syntax_error (-1))
end end
| l -> | l ->
begin try begin match List.rev_map int_of_string l with begin try
| 0 :: r -> Clause r begin match List.rev_map int_of_string l with
| _ -> raise (Syntax_error (-1)) | 0 :: r -> Clause r
end with | _ -> raise (Syntax_error (-1))
| Invalid_argument _ -> raise (Syntax_error (-1)) end
with Invalid_argument _ -> raise (Syntax_error (-1))
end end
let parse_with todo file = let parse_with todo file =