haz/llpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cosmetics

Browse source
This commit is contained in:
malc 2018-05-19 12:50:05 +03:00
parent 6bca2f179a
commit 3dbbc2e098
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
config.ml
View file

@ -482,9 +482,8 @@ let rowyh (c, coverA, coverB) b n =
let page_of_y y = let page_of_y y =
let ((c, coverA, coverB) as cl), b = let ((c, coverA, coverB) as cl), b =
match conf.columns with match conf.columns with
| Csingle b -> (1, 0, 0), b | Csplit (_, b) | Csingle b -> (1, 0, 0), b
| Cmulti (c, b) -> c, b | Cmulti (c, b) -> c, b
| Csplit (_, b) -> (1, 0, 0), b
in in
if Array.length b = 0 if Array.length b = 0
then -1 then -1