bunny/usagi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed useless function

Browse Source
This commit is contained in:
bunny
2025-09-17 23:02:02 +01:00
parent 9aa6ba38a9
commit c3fb135d97
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
parser.ml
View File

@@ -15,8 +15,6 @@ type 'a parser =
{ run : input -> 'a parser_result { run : input -> 'a parser_result
} }
let runParser i p = p.run i
let fold_left1 (f: 'a -> 'a -> 'a) (xs: 'a list) : 'a = match xs with let fold_left1 (f: 'a -> 'a -> 'a) (xs: 'a list) : 'a = match xs with
| [] -> failwith "TODO: make method total; empty list" | [] -> failwith "TODO: make method total; empty list"
| x :: xs -> List.fold_left f x xs | x :: xs -> List.fold_left f x xs