Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 227 Bytes
(* Ohm is © 2012 Victor Nicollet *)
let slice ~count list =
try match BatList.split_at count list with
| list, [] -> list, None
| list, h :: _ -> list, Some h
with _ -> list, None
module Book = OhmPaging_book